[project @ 2001-09-07 14:31:13 by rrt]

Changed "expect fail" in all.T to "$expect = "fail"", which should work; the
former shouldn't work, the latter does.

Add Windows KNOWN_FAILURES.

testsuite/tests/ghc-regress/KNOWN_FAILURES

@@ -13,6 +13,15 @@ deSugar/should_compile/ds054
 lib/IO/hReady001
 		-- IO.hReady doesn't detect the end of a file
 
+lib/IO/openFile005, openFile007, readFile001 [Windows]
+                -- file locking is broken on Windows
+
+lib/IOExts/hTell001, hTell002 [Windows]
+		-- seeking on text handles not implemented on Windows
+
+lib/net/net001 [Windows]
+                -- getProtocolByName seems not to be working on Windows
+
 parser/should_fail/read002
 		-- we don't disallow certain characters in strings (eg. newline)
 

testsuite/tests/ghc-regress/lib/IO/all.T

@@ -37,13 +37,13 @@ test "openFile001" 	{ vtr("","","") }
 test "openFile002" 	{ vtr("","","1") }
 test "openFile003" 	{ vtr("","","") }
 test "openFile004" 	{ vtr("","","") }
-test "openFile005" 	{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "openFile005" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                           vtr("","","") }
 test "openFile006" 	{ vtr("","","") }
-test "openFile007" 	{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "openFile007" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                           vtr("","","") }
 test "putStr001" 	{ vtr("","","") }
-test "readFile001" 	{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "readFile001" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                           vtr("","","") }
 test "readwrite001" 	{ vtr("-cpp","","") }
 test "readwrite002" 	{ $stdin = "readwrite002.hs" 

testsuite/tests/ghc-regress/lib/IOExts/all.T

@@ -7,9 +7,9 @@ def myvtr($extra_comp_args, $a, $b)
 }
 
 test "echo001"		{ $stdin = "echo001.hs" myvtr("","","") }
-test "hTell001"		{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "hTell001"		{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                           myvtr("","","") }
-test "hTell002"		{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "hTell002"		{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                           myvtr("","","") }
 test "performGC001"	{ myvtr("","","") }
 test "trace001"		{ myvtr("","","") }

testsuite/tests/ghc-regress/lib/net/all.T

 include ($confdir ++ "/../vanilla-test.T")
 
-test "net001"	{ if $platform == "i386-unknown-mingw32" then expect fail fi
+test "net001"	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
                   vtr("-package net","","") }
 test "uri001"	{ vtr("-package net","","") }