Commit 8f07e37b authored by rrt's avatar rrt
Browse files

[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.
parent 3435b251
......@@ -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)
......
......@@ -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"
......
......@@ -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("","","") }
......
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","","") }
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