Use ReadMode in finalization001
authorIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:41:56 +0000 (20:41 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:41:56 +0000 (20:41 +0100)
It was using ReadWriteMode, which made the driver think it was writing
to a file but not cleaning it. I don't think the fact it was ReadWrite
was important to the test, though.

testsuite/tests/lib/IO/finalization001.hs

index 2bf6353..44828a6 100644 (file)
@@ -8,7 +8,7 @@ import System.IO
 
 doTest :: IO ()
 doTest = do
-  sd <- openFile "finalization001.hs" ReadWriteMode
+  sd <- openFile "finalization001.hs" ReadMode
   result <- hGetContents sd
   slurp result
   hClose sd