[commit: testsuite] master: Test Trac #5252 (again) (f66a982)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master http://hackage.haskell.org/trac/ghc/changeset/f66a982b02696ef5d32f877e7110daa5c2c5b518 >--------------------------------------------------------------- commit f66a982b02696ef5d32f877e7110daa5c2c5b518 Author: Simon Peyton Jones <[email protected]> Date: Tue Sep 18 08:55:50 2012 +0100 Test Trac #5252 (again) >--------------------------------------------------------------- tests/deSugar/should_compile/Makefile | 6 ++++++ tests/deSugar/should_compile/T5252Take2.hs | 5 +++++ tests/deSugar/should_compile/T5252Take2a.hs | 8 ++++++++ tests/deSugar/should_compile/all.T | 6 ++++++ 4 files changed, 25 insertions(+), 0 deletions(-) diff --git a/tests/deSugar/should_compile/Makefile b/tests/deSugar/should_compile/Makefile index a6cbe41..f732783 100644 --- a/tests/deSugar/should_compile/Makefile +++ b/tests/deSugar/should_compile/Makefile @@ -6,3 +6,9 @@ T5252: $(RM) -f T5252*.hi T5252*.o '$(TEST_HC)' $(TEST_HC_OPTS) -c T5252a.hs '$(TEST_HC)' $(TEST_HC_OPTS) -c T5252.hs + +# Failed when compiled *without* optimisation +T5252Take2: + $(RM) -f T5252*.hi T5252*.o + '$(TEST_HC)' $(TEST_HC_OPTS) -c T5252Take2a.hs + '$(TEST_HC)' $(TEST_HC_OPTS) -c T5252Take2.hs diff --git a/tests/deSugar/should_compile/T5252Take2.hs b/tests/deSugar/should_compile/T5252Take2.hs new file mode 100644 index 0000000..64e64af --- /dev/null +++ b/tests/deSugar/should_compile/T5252Take2.hs @@ -0,0 +1,5 @@ +module T5252Take2 where +import qualified T5252Take2a as M + +write_message :: M.WriteMessage -> IO Bool +write_message (M.WriteMessage _) = return True diff --git a/tests/deSugar/should_compile/T5252Take2a.hs b/tests/deSugar/should_compile/T5252Take2a.hs new file mode 100644 index 0000000..0bccace --- /dev/null +++ b/tests/deSugar/should_compile/T5252Take2a.hs @@ -0,0 +1,8 @@ +{-# OPTIONS_GHC -funbox-strict-fields #-} + +module T5252Take2a ( WriteMessage(..) , WriteDevice ) where + +import qualified Data.ByteString as ByteString + +data WriteMessage = WriteMessage !WriteDevice +newtype WriteDevice = WriteDevice ByteString.ByteString diff --git a/tests/deSugar/should_compile/all.T b/tests/deSugar/should_compile/all.T index 35d5325..51e747f 100644 --- a/tests/deSugar/should_compile/all.T +++ b/tests/deSugar/should_compile/all.T @@ -95,3 +95,9 @@ test('T5001', extra_clean(['T5001a.hi', 'T5001a.o'])], multimod_compile, ['T5001', '-v0']) + +# T5252Take2 failed when compiled *wihtout* optimisation +test('T5252Take2', + extra_clean(['T5252Take2a.hi', 'T5252Take2a.o']), + run_command, + ['$MAKE -s --no-print-directory T5252Take2'])