Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/daf692142b945a624ce0299374fb0b1a7a3f8f42 >--------------------------------------------------------------- commit daf692142b945a624ce0299374fb0b1a7a3f8f42 Author: Simon Peyton Jones <[email protected]> Date: Tue Nov 1 21:56:52 2011 +0000 Test Trac #5592 >--------------------------------------------------------------- tests/rename/should_compile/T5592.hs | 9 +++++++++ tests/rename/should_compile/T5592.stdout | 1 + tests/rename/should_compile/T5592a.hs | 4 ++++ tests/rename/should_compile/all.T | 5 +++++ 4 files changed, 19 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_compile/T5592.hs b/tests/rename/should_compile/T5592.hs new file mode 100644 index 0000000..7f03757 --- /dev/null +++ b/tests/rename/should_compile/T5592.hs @@ -0,0 +1,9 @@ +{-# LANGUAGE RecordWildCards #-} +module Main where + +import qualified T5592a as MR (MyRecord(MyRecord, field)) + +main + = do { let field = "Hello, world!" + rec = MR.MyRecord {..} + ; print rec } diff --git a/tests/rename/should_compile/T5592.stdout b/tests/rename/should_compile/T5592.stdout new file mode 100644 index 0000000..d58d2d8 --- /dev/null +++ b/tests/rename/should_compile/T5592.stdout @@ -0,0 +1 @@ +MyRecord {field = "Hello, world!"} diff --git a/tests/rename/should_compile/T5592a.hs b/tests/rename/should_compile/T5592a.hs new file mode 100644 index 0000000..ba0e40b --- /dev/null +++ b/tests/rename/should_compile/T5592a.hs @@ -0,0 +1,4 @@ +module T5592a where + +data MyRecord = MyRecord { field :: String } + deriving (Show) diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T index 262f506..3ed2a1f 100644 --- a/tests/rename/should_compile/all.T +++ b/tests/rename/should_compile/all.T @@ -181,3 +181,8 @@ test('T5306', 'T5306b.hi', 'T5306b.o'])], multimod_compile, ['T5306', '-v0']) +test('T5592', + [only_compiler_types(['ghc']), + extra_clean(['T5592a.hi', 'T5592a.o'])], + multimod_compile_and_run, + ['T5592', '-v0']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
