Commit 5b08752e authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Fix test for Trac #7931

parent 71178ab7
...@@ -3,5 +3,8 @@ module Main where ...@@ -3,5 +3,8 @@ module Main where
data A data A
deriving instance Read A deriving instance Read A
deriving instance Show A
main = seq (read "" :: A) (return ()) main = print (read "[]" :: [A])
-- Should successfully read the empty list
...@@ -34,5 +34,5 @@ test('T4528a', normal, compile_and_run, ['']) ...@@ -34,5 +34,5 @@ test('T4528a', normal, compile_and_run, [''])
test('T5041', normal, compile_and_run, ['']) test('T5041', normal, compile_and_run, [''])
test('T5628', exit_code(1), compile_and_run, ['']) test('T5628', exit_code(1), compile_and_run, [''])
test('T5712', normal, compile_and_run, ['']) test('T5712', normal, compile_and_run, [''])
test('T7931', exit_code(1), compile_and_run, ['']) test('T7931', normal, compile_and_run, [''])
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment