Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3816e8f1f14450b874a29d1cefbf8b708232d57d >--------------------------------------------------------------- commit 3816e8f1f14450b874a29d1cefbf8b708232d57d Author: Paolo Capriotti <[email protected]> Date: Fri Mar 30 12:46:52 2012 +0100 Add testcase for #5976. >--------------------------------------------------------------- tests/th/T5976.hs | 3 +++ tests/th/T5976.stderr | 5 +++++ tests/th/all.T | 1 + 3 files changed, 9 insertions(+), 0 deletions(-) diff --git a/tests/th/T5976.hs b/tests/th/T5976.hs new file mode 100644 index 0000000..aa388c7 --- /dev/null +++ b/tests/th/T5976.hs @@ -0,0 +1,3 @@ +{-# LANGUAGE TemplateHaskell #-} + +$( error ("foo " ++ error "bar") ) diff --git a/tests/th/T5976.stderr b/tests/th/T5976.stderr new file mode 100644 index 0000000..64cf33a --- /dev/null +++ b/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/tests/th/all.T b/tests/th/all.T index b428fca..fbe54f9 100644 --- a/tests/th/all.T +++ b/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']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
