Commit ea04e86c authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-22 13:17:54 by simonmar]

oops, I didn't notice that "reader" had been renamed to "parser" when
it was imported.  So these are the changes I made to the reader tests
to make them work.  I'll go and remove reader in the repo.
parent 1f95756d
include ($confdir ++ "/../vanilla-test.T")
-- Args to vtc are: extra compile flags
test "read001" { vtc("") }
test "read002" { vtc("") }
test "read003" { vtc("") }
test "read004" { vtc("") }
test "read005" { vtc("") }
-- these two are really a multi-module test, order is important
test "read006" { vtc("") }
test "read007" { vtc("") }
test "read008" { vtc("") }
test "read009" { vtc("") }
test "read010" { vtc("") }
test "read011" { vtc("") }
test "read012" { vtc("-O -funfold-casms-in-hi-file -fglasgow-exts -ohi T1.hi") }
test "read013" { vtc("-O -funfold-casms-in-hi-file -fglasgow-exts") }
-- these two are really a multi-module test, order is important
test "read012" { vtc("-fvia-C -O -funfold-casms-in-hi-file -fglasgow-exts") }
test "read013" { vtc("-O -fglasgow-exts") }
test "read014" { vtc("-Wall") }
test "read015" { vtc("") }
test "read016" { vtc("") }
......
-- !!! Testing handling of troublesome constructor name (:::)
module MyList (MyList(Empty, (:::))) where
module Read006 (MyList(Empty, (:::))) where
data MyList a = Empty
| (MyList a) ::: (MyList a)
module ShouldCompile where
import MyList
import Read006
myLength :: MyList a -> Int
myLength Empty = 0
......
module T1 where
module Read012 where
malloc :: IO Int
malloc = _casm_ ``%r = 42;''
module T2 where
import T1
module Read013 where
import Read012
blah :: IO Int
blah = malloc
......@@ -7,20 +7,20 @@ read014.hs:8: Warning: Defined but not used: x
read014.hs:6:
Warning: No explicit method nor default method for `*'
in an instance declaration for `Num'
In the instance declaration for `Num (a, b)'
read014.hs:6:
Warning: No explicit method nor default method for `+'
in an instance declaration for `Num'
In the instance declaration for `Num (a, b)'
read014.hs:6:
Warning: No explicit method nor default method for `signum'
in an instance declaration for `Num'
In the instance declaration for `Num (a, b)'
read014.hs:6:
Warning: No explicit method nor default method for `abs'
in an instance declaration for `Num'
In the instance declaration for `Num (a, b)'
read014.hs:6:
Warning: No explicit method nor default method for `fromInteger'
in an instance declaration for `Num'
In the instance declaration for `Num (a, b)'
include ($confdir ++ "/../vanilla-test.T")
-- Args to vtcf are: extra compile flags
def myvtcf ( $extra_compile_args )
{
vtcf ( $extra_compile_args ++ " -ddump-parsed ")
}
test "read001" { myvtcf("") }
test "read002" { myvtcf("") }
test "read003" { myvtcf("") }
test "read004" { myvtcf("") }
test "read005" { myvtcf("") }
test "read006" { myvtcf("") }
test "read007" { myvtcf("") }
test "read008" { myvtcf("") }
test "read009" { myvtcf("") }
test "read011" { myvtcf("") }
test "read012" { myvtcf("") }
test "read013" { myvtcf("-fglasgow-exts") }
test "read014" { myvtcf("") }
test "read015" { myvtcf("") }
test "read016" { myvtcf("") }
test "read017" { myvtcf("") }
test "read001" { vtcf("") }
test "read002" { vtcf("") }
test "read003" { vtcf("") }
test "read004" { vtcf("") }
test "read005" { vtcf("") }
test "read006" { vtcf("") }
test "read007" { vtcf("") }
test "read008" { vtcf("") }
test "read009" { vtcf("") }
--test "read010" { vtcf("") }
test "read011" { vtcf("") }
test "read012" { vtcf("") }
test "read013" { vtcf("-fglasgow-exts") }
test "read014" { vtcf("") }
test "read015" { vtcf("") }
test "read016" { vtcf("") }
test "read017" { vtcf("") }
......@@ -3,4 +3,4 @@ read003.hs:4:
Occurs check: cannot construct the infinite type: t = (t, [a], t1)
Expected type: (t, [a], t1)
Inferred type: t
in a pattern binding: a
In a pattern binding: a
......@@ -2,4 +2,8 @@
read007.hs:6:
`+' is not a data constructor
In the pattern: 2 + 2
in a `do' expression pattern binding: (2 + 2) <- 2
In a 'do' expression pattern binding: (2 + 2) <- 2
In the definition of `f':
do
(2 + 2) <- 2
return x
Supports Markdown
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