diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-27 17:32:45 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-27 17:32:45 +0100 |
| commit | 302b38bd6fed87924beb3fde13bec647ae4328c7 (patch) | |
| tree | f9460e47e4cdb1820231fe701764970e7cc98c39 /testsuite/tests/deriving/should_run | |
| parent | d90640e798676e89ee067da644c09a18b6a4cee7 (diff) | |
| download | haskell-302b38bd6fed87924beb3fde13bec647ae4328c7.tar.gz | |
Test Trac #7931
Diffstat (limited to 'testsuite/tests/deriving/should_run')
| -rw-r--r-- | testsuite/tests/deriving/should_run/T7931.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/T7931.stderr | 1 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/all.T | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_run/T7931.hs b/testsuite/tests/deriving/should_run/T7931.hs new file mode 100644 index 0000000000..052b68205a --- /dev/null +++ b/testsuite/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/testsuite/tests/deriving/should_run/T7931.stderr b/testsuite/tests/deriving/should_run/T7931.stderr new file mode 100644 index 0000000000..74be9c975e --- /dev/null +++ b/testsuite/tests/deriving/should_run/T7931.stderr @@ -0,0 +1 @@ +T7931: Derived Read on empty data type diff --git a/testsuite/tests/deriving/should_run/all.T b/testsuite/tests/deriving/should_run/all.T index af4bd720c9..cfef4c3cb4 100644 --- a/testsuite/tests/deriving/should_run/all.T +++ b/testsuite/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, ['']) |