[commit: testsuite] master: Use ReadMode in finalization001 (9c647ba)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9c647baccc79899cd1d3db6b984b51cdfe92988b

>---------------------------------------------------------------

commit 9c647baccc79899cd1d3db6b984b51cdfe92988b
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun Sep 4 20:41:56 2011 +0100

    Use ReadMode in finalization001
    
    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.

>---------------------------------------------------------------

 tests/lib/IO/finalization001.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/lib/IO/finalization001.hs b/tests/lib/IO/finalization001.hs
index 2bf6353..44828a6 100644
--- a/tests/lib/IO/finalization001.hs
+++ b/tests/lib/IO/finalization001.hs
@@ -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