diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-04 19:13:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-04 19:13:29 +0100 |
| commit | 65b35319225d66c5309078199e2f10f34ba59524 (patch) | |
| tree | 6f77b60a13ea41322b739621cfa0d1da7e445a42 | |
| parent | 5b08752e240751274ef205c485163c9587dd0a18 (diff) | |
| download | haskell-65b35319225d66c5309078199e2f10f34ba59524.tar.gz | |
Add a test for #7859
| -rw-r--r-- | testsuite/mk/boilerplate.mk | 4 | ||||
| -rw-r--r-- | testsuite/tests/runghc/Makefile | 7 | ||||
| -rw-r--r-- | testsuite/tests/runghc/T7859.stderr | 1 | ||||
| -rw-r--r-- | testsuite/tests/runghc/all.T | 6 |
4 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/mk/boilerplate.mk b/testsuite/mk/boilerplate.mk index e5bf164391..1765d78f03 100644 --- a/testsuite/mk/boilerplate.mk +++ b/testsuite/mk/boilerplate.mk @@ -91,6 +91,10 @@ ifeq "$(GHC_PKG)" "" GHC_PKG := $(BIN_ROOT)/ghc-pkg endif +ifeq "$(RUNGHC)" "" +RUNGHC := $(BIN_ROOT)/runghc +endif + ifeq "$(HSC2HS)" "" HSC2HS := $(BIN_ROOT)/hsc2hs endif diff --git a/testsuite/tests/runghc/Makefile b/testsuite/tests/runghc/Makefile new file mode 100644 index 0000000000..de374d5c97 --- /dev/null +++ b/testsuite/tests/runghc/Makefile @@ -0,0 +1,7 @@ +TOP=../.. +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk + +T7859: + -'$(RUNGHC)' -fdefer-type-errors T7859.hs + diff --git a/testsuite/tests/runghc/T7859.stderr b/testsuite/tests/runghc/T7859.stderr new file mode 100644 index 0000000000..f784874848 --- /dev/null +++ b/testsuite/tests/runghc/T7859.stderr @@ -0,0 +1 @@ +runghc: defer-type-errors: rawSystem: runInteractiveProcess: exec: does not exist (No such file or directory) diff --git a/testsuite/tests/runghc/all.T b/testsuite/tests/runghc/all.T new file mode 100644 index 0000000000..e7a56129f3 --- /dev/null +++ b/testsuite/tests/runghc/all.T @@ -0,0 +1,6 @@ + +setTestOpts(when(compiler_profiled(), skip)) + +test('T7859', req_interp, run_command, + ['$MAKE --no-print-directory -s T7859']) + |