[project @ 2001-05-31 10:32:28 by sewardj]

Various mingw fixes.

ghc/tests/lib/IO/Makefile

 # -----------------------------------------------------------------------------
-# $Id: Makefile,v 1.4 2001/05/31 09:48:54 sewardj Exp $
+# $Id: Makefile,v 1.5 2001/05/31 10:32:28 sewardj Exp $
 
 TOP = ../..
 
@@ -9,6 +9,7 @@ include $(TOP)/mk/should_run.mk
 
 SRC_HC_OPTS += -dcore-lint
 
+hGetBuffering001_RUNTEST_OPTS += -i hGetBuffering001.hs
 hSetBuffering002_RUNTEST_OPTS += -i hSetBuffering002.hs
 hSetBuffering003_RUNTEST_OPTS += -i hSetBuffering003.hs
 misc001_RUNTEST_OPTS          += misc001.hs misc001.out
@@ -18,6 +19,7 @@ IOError001_RUNTEST_OPTS       += -i IOError001.hs -o1 IOError001.stdout-mingw
 readwrite002_RUNTEST_OPTS     += -i readwrite002.hs
 hGetLine001_RUNTEST_OPTS      += -i hGetLine001.hs
 hFileSize001_RUNTEST_OPTS     += -o1 hFileSize001.stdout-mingw
+hSeek004_RUNTEST_OPTS         += -o1 hSeek004.stdout-mingw
 
 .PRECIOUS: %.o %.bin
 

ghc/tests/lib/IO/hSeek004.stdout-mingw

+Left illegal operation
+Action: hSeek
+Handle: {loc=hSeek004.out,type=writable (append),buffering=block (512)}
+Reason: handle is not seekable
+File: hSeek004.out

ghc/tests/lib/IO/openFile002.hs

@@ -3,4 +3,4 @@ import IO
 
 -- !!! Open a non-existent file for reading (should fail)
 
-main = openFile "<nonexistent>" ReadMode
+main = openFile "nonexistent" ReadMode

ghc/tests/lib/IO/openFile002.stderr

@@ -2,5 +2,5 @@
 Fail: does not exist
 Action: openFile
 Reason: No such file or directory
-File: <nonexistent>
+File: nonexistent
 

ghc/tests/lib/IO/openFile006.hs

@@ -4,7 +4,7 @@ import IO
 
 main = do
   h <- openFile "openFile006.out" AppendMode
-  hPutStrLn h "hello, world"
+  hPutStr h "hello, world"
   size <- hFileSize h
   print size
   hClose h

ghc/tests/lib/IO/openFile006.stdout

-13
+12
 0