all.T 2.03 KB
Newer Older
1
2
3
4
include ($confdir ++ "/../vanilla-test.T")

test "IOError001"	{ $stdin = "IOError001.hs" 
			  vtr("","","") }
5
test "IOError002" 	{ vtr("","","") }
6
7
8
9
10
11
12
13
14
15
test "finalization001" 	{ vtr("","","") }
test "hClose001" 	{ vtr("","","") }
test "hFileSize001" 	{ vtr("","","") }
test "hFileSize002" 	{ vtr("","","") }
test "hFlush001" 	{ vtr("","","") }
test "hGetBuffering001" { $stdin = "hGetBuffering001.hs" 
			  vtr("","","") }
test "hGetChar001" 	{ vtr("","","") }
test "hGetLine001" 	{ $stdin = "hGetLine001.hs"
			  vtr("-cpp","","") }
16
test "hGetLine002" 	{ vtr("","","") }
17
18
19
test "hGetPosn001" 	{ vtr("-cpp","","") }
test "hIsEOF001" 	{ vtr("","","") }
test "hIsEOF002" 	{ vtr("-cpp","","") }
20
21
22
23
24

-- hReady doesn't work at the end of a file in GHC
test "hReady001" 	{ $expect = "fail"
			  vtr("-cpp","","") }

25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
test "hSeek001" 	{ vtr("-cpp","","") }
test "hSeek002" 	{ vtr("-cpp","","") }
test "hSeek003" 	{ vtr("-cpp","","") }
test "hSeek004" 	{ vtr("-cpp","","") }
test "hSetBuffering002" { $stdin = "hSetBuffering002.hs" 
			  vtr("","","") }
test "hSetBuffering003" { $stdin = "hSetBuffering003.hs" 
			  vtr("","","") }
test "ioeGetErrorString001" { vtr("-cpp","","") }
test "ioeGetFileName001" { vtr("-cpp","","") }
test "ioeGetHandle001"	{ vtr("-cpp","","") }
test "isEOF001" 	{ vtr("","","") }
test "misc001" 		{ vtr("","misc001.hs misc001.out","") }
test "openFile001" 	{ vtr("","","") }
test "openFile002" 	{ vtr("","","1") }
test "openFile003" 	{ vtr("","","") }
test "openFile004" 	{ vtr("","","") }
rrt's avatar
rrt committed
42
test "openFile005" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
rrt's avatar
rrt committed
43
                          vtr("","","") }
44
test "openFile006" 	{ vtr("","","") }
rrt's avatar
rrt committed
45
test "openFile007" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
rrt's avatar
rrt committed
46
                          vtr("","","") }
47
test "putStr001" 	{ vtr("","","") }
rrt's avatar
rrt committed
48
test "readFile001" 	{ if $platform == "i386-unknown-mingw32" then $expect = "fail" fi
rrt's avatar
rrt committed
49
                          vtr("","","") }
50
51
52
test "readwrite001" 	{ vtr("-cpp","","") }
test "readwrite002" 	{ $stdin = "readwrite002.hs" 
			  vtr("-cpp","","") }