Commit e2c894db authored by rrt's avatar rrt
Browse files

[project @ 2001-09-07 16:00:17 by rrt]

Check in Windows-specific results files; remove a spurious one, and fix that
for hGetLine001 (a new Win-specific file).
parent ba2b16f4
getDirectoryContents001.comp.stderr
getDirectoryContents001.exe
getDirectoryContents001.hs
getDirectoryContents001.o
getDirectoryContents001.run.stderr
getDirectoryContents001.run.stdout
getDirectoryContents001.stdout
getDirectoryContents001.stdout-i386-unknown-mingw32
Permissions{readable=True,writable=True,executable=False,searchable=True}
Permissions{readable=True,writable=True,executable=True,searchable=False}
Permissions{readable=True,writable=True,executable=True,searchable=False}
illegal operation
Action: hGetChar
Handle: {loc=<stdin>,type=semi-closed,binary=False,buffering=block (512)}
Reason: handle is closed
File: <stdin>
illegal operation
Action: hGetChar
Handle: {loc=<stdin>,type=semi-closed,binary=False,buffering=block (512)}
Reason: handle is closed
File: <stdin>
-- !!! testing hGetLine
import IO
#if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
import PrelHandle(hSetBinaryMode)
#endif
......@@ -14,9 +14,9 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
# if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
hSetBinaryMode h True
# endif
#endif
hSetBuffering h NoBuffering
loop h
......@@ -31,7 +31,7 @@ main = do
-- !!! testing hGetLine
import IO
#if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
import PrelHandle(hSetBinaryMode)
#endif
......@@ -44,9 +44,9 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
# if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
hSetBinaryMode h True
# endif
#endif
hSetBuffering h NoBuffering
loop h
......@@ -61,7 +61,7 @@ main = do
-- !!! testing hGetLine
import IO
#if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
import PrelHandle(hSetBinaryMode)
#endif
......@@ -74,9 +74,9 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
# if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
hSetBinaryMode h True
# endif
#endif
hSetBuffering h NoBuffering
loop h
......@@ -91,7 +91,7 @@ main = do
-- !!! testing hGetLine
import IO
#if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
import PrelHandle(hSetBinaryMode)
#endif
......@@ -104,9 +104,9 @@ main = do
h <- openFile "hGetLine001.hs" ReadMode
# if defined(__MINGW32__)
#ifdef i386_unknown_mingw32
hSetBinaryMode h True
# endif
#endif
hSetBuffering h NoBuffering
loop h
......
123456789*123456789*123456789*123456789*123456789*123456789*123456789*12
1 2 3 4 5 6 7
123456789*123456789*123456789*123456789*123456789*123456789*123456789*12
1 2 3 4 5 6 7
Left illegal operation
Action: hSeek
Handle: {loc=hSeek004.out,type=writable (append),binary=True,buffering=block (512)}
Reason: handle is not seekable
File: hSeek004.out
Left permission denied
Action: openFile
Reason: Permission denied
File: .
Left permission denied
Action: openFile
Reason: Permission denied
File: .
Left permission denied
Action: openFile
Reason: Permission denied
File: .
Left permission denied
Action: openFile
Reason: Permission denied
File: .
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