diff options
-rw-r--r-- | testsuite/tests/ghc-e/should_run/Makefile | 6 | ||||
-rw-r--r-- | testsuite/tests/ghc-e/should_run/T15617a.stdout | 1 | ||||
-rw-r--r-- | testsuite/tests/ghc-e/should_run/all.T | 2 |
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-e/should_run/Makefile b/testsuite/tests/ghc-e/should_run/Makefile index 3a5fddc2da..c40bc83a3f 100644 --- a/testsuite/tests/ghc-e/should_run/Makefile +++ b/testsuite/tests/ghc-e/should_run/Makefile @@ -45,3 +45,9 @@ T9905b: # Ensure that ghc -e does not output extra messages about GHCi configuration files T11478: '$(TEST_HC)' $(TEST_HC_OPTS) -ignore-dot-ghci -ghci-script T11478.script -e 3 + +T15617a: + '$(TEST_HC)' $(TEST_HC_OPTS) -ignore-dot-ghci -fobject-code -O2 -e "let a = show 5 in a" + +T15617b: + '$(TEST_HC)' $(TEST_HC_OPTS) -ignore-dot-ghci -fobject-code -O2 -e "a = show 5" diff --git a/testsuite/tests/ghc-e/should_run/T15617a.stdout b/testsuite/tests/ghc-e/should_run/T15617a.stdout new file mode 100644 index 0000000000..9910baef09 --- /dev/null +++ b/testsuite/tests/ghc-e/should_run/T15617a.stdout @@ -0,0 +1 @@ +"5" diff --git a/testsuite/tests/ghc-e/should_run/all.T b/testsuite/tests/ghc-e/should_run/all.T index a2e50ab9ec..03ee37cb9f 100644 --- a/testsuite/tests/ghc-e/should_run/all.T +++ b/testsuite/tests/ghc-e/should_run/all.T @@ -16,3 +16,5 @@ test('T9086', req_interp, makefile_test, ['T9086']) test('T9905', req_interp, makefile_test, ['T9905']) test('T9905b', req_interp, makefile_test, ['T9905b']) test('T11478', req_interp, makefile_test, ['T11478']) +test('T15617a', req_interp, makefile_test, ['T15617a']) +test('T15617b', req_interp, makefile_test, ['T15617b']) |