diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-30 15:19:11 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-30 15:19:31 +0100 |
| commit | 5b08752e240751274ef205c485163c9587dd0a18 (patch) | |
| tree | deb4c347597941fcf720b17286092e973f025b5c /testsuite/tests/deriving/should_run | |
| parent | 71178ab74d6df5d236ed6f2e6f9f9df9ab0c310c (diff) | |
| download | haskell-5b08752e240751274ef205c485163c9587dd0a18.tar.gz | |
Fix test for Trac #7931
Diffstat (limited to 'testsuite/tests/deriving/should_run')
| -rw-r--r-- | testsuite/tests/deriving/should_run/T7931.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/T7931.stderr | 1 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/T7931.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/deriving/should_run/all.T | 2 |
4 files changed, 6 insertions, 3 deletions
diff --git a/testsuite/tests/deriving/should_run/T7931.hs b/testsuite/tests/deriving/should_run/T7931.hs index 052b68205a..c97d648b2c 100644 --- a/testsuite/tests/deriving/should_run/T7931.hs +++ b/testsuite/tests/deriving/should_run/T7931.hs @@ -3,5 +3,8 @@ module Main where data A deriving instance Read A +deriving instance Show A -main = seq (read "" :: A) (return ()) +main = print (read "[]" :: [A]) +-- Should successfully read the empty list + diff --git a/testsuite/tests/deriving/should_run/T7931.stderr b/testsuite/tests/deriving/should_run/T7931.stderr deleted file mode 100644 index 74be9c975e..0000000000 --- a/testsuite/tests/deriving/should_run/T7931.stderr +++ /dev/null @@ -1 +0,0 @@ -T7931: Derived Read on empty data type diff --git a/testsuite/tests/deriving/should_run/T7931.stdout b/testsuite/tests/deriving/should_run/T7931.stdout new file mode 100644 index 0000000000..fe51488c70 --- /dev/null +++ b/testsuite/tests/deriving/should_run/T7931.stdout @@ -0,0 +1 @@ +[] diff --git a/testsuite/tests/deriving/should_run/all.T b/testsuite/tests/deriving/should_run/all.T index cfef4c3cb4..a2763ac6ab 100644 --- a/testsuite/tests/deriving/should_run/all.T +++ b/testsuite/tests/deriving/should_run/all.T @@ -34,5 +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, ['']) +test('T7931', normal, compile_and_run, ['']) |