Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/82aa075e162e05ff7be59026bdd1a989ce7f4ed4 >--------------------------------------------------------------- commit 82aa075e162e05ff7be59026bdd1a989ce7f4ed4 Author: Simon Peyton Jones <[email protected]> Date: Tue Nov 15 17:51:43 2011 +0000 Test Trac #5628 >--------------------------------------------------------------- tests/deriving/should_run/T5628.hs | 11 +++++++++++ tests/deriving/should_run/T5628.stderr | 1 + tests/deriving/should_run/all.T | 2 ++ 3 files changed, 14 insertions(+), 0 deletions(-) diff --git a/tests/deriving/should_run/T5628.hs b/tests/deriving/should_run/T5628.hs new file mode 100644 index 0000000..79a9466 --- /dev/null +++ b/tests/deriving/should_run/T5628.hs @@ -0,0 +1,11 @@ +{-# LANGUAGE EmptyDataDecls, StandaloneDeriving #-} +module Main where + +data Z +deriving instance Eq Z + +g :: Z +g = g + +main :: IO () +main = print (g == g) diff --git a/tests/deriving/should_run/T5628.stderr b/tests/deriving/should_run/T5628.stderr new file mode 100644 index 0000000..89992b7 --- /dev/null +++ b/tests/deriving/should_run/T5628.stderr @@ -0,0 +1 @@ +T5628: Void == diff --git a/tests/deriving/should_run/all.T b/tests/deriving/should_run/all.T index 83e041f..dba61e0 100644 --- a/tests/deriving/should_run/all.T +++ b/tests/deriving/should_run/all.T @@ -32,3 +32,5 @@ test('drvrun-foldable1', normal, compile_and_run, ['']) 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, ['']) + _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
