diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-30 12:46:52 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-03 11:43:43 +0100 |
| commit | 47c2cb0ce02f2202b1f04b2ef9ff9a3517faef94 (patch) | |
| tree | 701ee19a3c04b51033e3aa39dbc46581d8746bc1 /testsuite | |
| parent | 9615ede4d51a2f30e6741b9370effc7ddca7d5a3 (diff) | |
| download | haskell-47c2cb0ce02f2202b1f04b2ef9ff9a3517faef94.tar.gz | |
Add testcase for #5976.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/th/T5976.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/th/T5976.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5976.hs b/testsuite/tests/th/T5976.hs new file mode 100644 index 0000000000..aa388c764e --- /dev/null +++ b/testsuite/tests/th/T5976.hs @@ -0,0 +1,3 @@ +{-# LANGUAGE TemplateHaskell #-} + +$( error ("foo " ++ error "bar") ) diff --git a/testsuite/tests/th/T5976.stderr b/testsuite/tests/th/T5976.stderr new file mode 100644 index 0000000000..64cf33acef --- /dev/null +++ b/testsuite/tests/th/T5976.stderr @@ -0,0 +1,5 @@ + +T5976.hs:1:1: + Exception when trying to run compile-time code: + bar + Code: error ((++) "foo " error "bar") diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index b428fcac6d..fbe54f987c 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -232,3 +232,4 @@ test('T5984', extra_clean(['T5984_Lib.hi', 'T5984_Lib.o']), multimod_compile, ['T5984', '-v0 -ddump-splices']) test('T5555', extra_clean(['T5555_Lib.hi', 'T5555_Lib.o']), multimod_compile, ['T5555', '-v0']) +test('T5976', normal, compile_fail, ['-v0']) |