Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0ff326e09fec6adaa6ed3789667185b1563402b1 >--------------------------------------------------------------- commit 0ff326e09fec6adaa6ed3789667185b1563402b1 Author: Simon Peyton Jones <[email protected]> Date: Fri Dec 23 16:06:47 2011 +0000 Test Trac #5712 >--------------------------------------------------------------- tests/deriving/should_run/T5712.hs | 14 ++++++++++++++ tests/deriving/should_run/T5712.stdout | 1 + tests/deriving/should_run/all.T | 1 + 3 files changed, 16 insertions(+), 0 deletions(-) diff --git a/tests/deriving/should_run/T5712.hs b/tests/deriving/should_run/T5712.hs new file mode 100644 index 0000000..a582b10 --- /dev/null +++ b/tests/deriving/should_run/T5712.hs @@ -0,0 +1,14 @@ +{-# LANGUAGE GADTs #-} + +module Main where + +infix 5 :*: +data T a where + (:*:) :: Int -> a -> T a + (:+:) :: Char -> T a -> T a + deriving( Show ) + + -- The Show should print (:*:) infix, but (:+:) prefix, + -- since it lacks a fixity declaration + +main = print ('x' :+: (3 :*: True)) diff --git a/tests/deriving/should_run/T5712.stdout b/tests/deriving/should_run/T5712.stdout new file mode 100644 index 0000000..42f8cea --- /dev/null +++ b/tests/deriving/should_run/T5712.stdout @@ -0,0 +1 @@ +(:+:) 'x' (3 :*: True) diff --git a/tests/deriving/should_run/all.T b/tests/deriving/should_run/all.T index dba61e0..480bdba 100644 --- a/tests/deriving/should_run/all.T +++ b/tests/deriving/should_run/all.T @@ -33,4 +33,5 @@ test('T4136', normal, compile_and_run, ['']) test('T4528a', normal, compile_and_run, ['']) test('T5041', normal, compile_and_run, ['']) test('T5628', exit_code(1), compile_and_run, ['']) +test('T5712', normal, compile_and_run, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
