[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).

testsuite/tests/ghc-regress/lib/Directory/getDirectoryContents001.stdout-i386-unknown-mingw32

+getDirectoryContents001.comp.stderr
+getDirectoryContents001.exe
+getDirectoryContents001.hs
+getDirectoryContents001.o
+getDirectoryContents001.run.stderr
+getDirectoryContents001.run.stdout
+getDirectoryContents001.stdout
+getDirectoryContents001.stdout-i386-unknown-mingw32
+

testsuite/tests/ghc-regress/lib/Directory/getPermissions001.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}

testsuite/tests/ghc-regress/lib/IO/IOError001.stdout-i386-unknown-mingw32

+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>

testsuite/tests/ghc-regress/lib/IO/hFileSize001.stdout-i386-unknown-mingw32

+133

testsuite/tests/ghc-regress/lib/IO/hGetLine001.stdout-mingw → testsuite/tests/ghc-regress/lib/IO/hGetLine001.stdout-i386-unknown-mingw32

 -- !!! 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

testsuite/tests/ghc-regress/lib/IO/hGetPosn001.stdout-i386-unknown-mingw32

+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  

testsuite/tests/ghc-regress/lib/IO/hSeek004.stdout-i386-unknown-mingw32

+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

testsuite/tests/ghc-regress/lib/IO/openFile003.stdout-i386-unknown-mingw32

+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: .

testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.stdout-i386-unknown-mingw32

+13