diff options
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, ['']) |