Commit a2d10fbe authored by sewardj's avatar sewardj
Browse files

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

Various mingw fixes.
parent 92049726
# -----------------------------------------------------------------------------
# $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
......
Left illegal operation
Action: hSeek
Handle: {loc=hSeek004.out,type=writable (append),buffering=block (512)}
Reason: handle is not seekable
File: hSeek004.out
......@@ -3,4 +3,4 @@ import IO
-- !!! Open a non-existent file for reading (should fail)
main = openFile "<nonexistent>" ReadMode
main = openFile "nonexistent" ReadMode
......@@ -2,5 +2,5 @@
Fail: does not exist
Action: openFile
Reason: No such file or directory
File: <nonexistent>
File: nonexistent
......@@ -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
......
Markdown is supported
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