diff options
| author | Roland Senn <rsx@bluewin.ch> | 2020-07-06 09:37:14 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-08-31 22:59:50 -0400 |
| commit | f6d70a8ff6a6cd628738fec902fc984936105264 (patch) | |
| tree | fc0cce7731411e3bd173118c81b1ed80cf6162ce | |
| parent | 329f7cb958551f5b384e2765a823770150152da2 (diff) | |
| download | haskell-f6d70a8ff6a6cd628738fec902fc984936105264.tar.gz | |
Add tests for #15617.
Avoid a similar regression in the future.
| -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']) |