Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
https://github.com/ghc/testsuite/commit/1ed0be84d39a488d36bedffcc1a91be1bb39d52a >--------------------------------------------------------------- commit 1ed0be84d39a488d36bedffcc1a91be1bb39d52a Author: Simon Peyton Jones <[email protected]> Date: Mon May 27 17:32:45 2013 +0100 Test Trac #7931 >--------------------------------------------------------------- tests/deriving/should_run/T7931.hs | 7 +++++++ tests/deriving/should_run/T7931.stderr | 1 + tests/deriving/should_run/all.T | 1 + 3 files changed, 9 insertions(+), 0 deletions(-) diff --git a/tests/deriving/should_run/T7931.hs b/tests/deriving/should_run/T7931.hs new file mode 100644 index 0000000..052b682 --- /dev/null +++ b/tests/deriving/should_run/T7931.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE StandaloneDeriving #-} +module Main where + +data A +deriving instance Read A + +main = seq (read "" :: A) (return ()) diff --git a/tests/deriving/should_run/T7931.stderr b/tests/deriving/should_run/T7931.stderr new file mode 100644 index 0000000..74be9c9 --- /dev/null +++ b/tests/deriving/should_run/T7931.stderr @@ -0,0 +1 @@ +T7931: Derived Read on empty data type diff --git a/tests/deriving/should_run/all.T b/tests/deriving/should_run/all.T index af4bd72..cfef4c3 100644 --- a/tests/deriving/should_run/all.T +++ b/tests/deriving/should_run/all.T @@ -34,4 +34,5 @@ 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, ['']) +test('T7931', exit_code(1), compile_and_run, ['']) _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
