Fix test for Trac #7931

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
+

testsuite/tests/deriving/should_run/T7931.stderr

-T7931: Derived Read on empty data type

testsuite/tests/deriving/should_run/T7931.stdout

+[]

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