Commit 412c310b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Move tests out of h98; directory now removed

parent 0ad3cf34
......@@ -88,3 +88,4 @@ test('DoAndIfThenElse', normal, compile, [''])
test('NondecreasingIndentation', normal, compile, [''])
test('mc15', normal, compile, [''])
test('mc16', expect_broken_for(4370, ['ghci','hpc']), compile, [''])
test('EmptyDecls', normal, compile, [''])
......@@ -49,6 +49,7 @@ test('readFail042', normal, compile_fail, [''])
test('readFail043', normal, compile_fail, [''])
test('readFail044', normal, compile_fail, [''])
test('readFail046', normal, compile_fail, [''])
test('readFail047', normal, compile_fail, [''])
test('T3095', normal, compile_fail, [''])
test('T3153', normal, compile_fail, [''])
test('T3751', normal, compile_fail, [''])
......
readFail047.hs:6:5: parse error (possibly incorrect indentation)
......@@ -3,3 +3,5 @@ test('readRun002', normal, compile_and_run, [''])
test('readRun003', normal, compile_and_run, [''])
test('readRun004', expect_broken_for(1257, ['ghci']), compile_and_run, [''])
test('T1344', normal, compile_and_run, [''])
test('operator', normal, compile_and_run, [''])
test('operator2', normal, compile_and_run, [''])
module Main where
data Hash = Hash { (#) :: Int }
deriving (Show,Read)
main = do
let h = Hash 3
s = show h
x = read s :: Hash
y = show x
print h
putStrLn s
print x
putStrLn y
let h' = Hash { (#) = 3 }
s' = show h'
x' = read s' :: Hash
y' = show x'
print h'
putStrLn s'
print x'
putStrLn y'
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
Hash {(#) = 3}
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('queens',
[skip_if_fast,
extra_clean(['Main.hi', 'Main.o'])],
compile_and_run,
[''])
......@@ -345,3 +345,4 @@ test('T4969', normal, compile, [''])
test('T5120', normal, compile, [''])
test('mc18', expect_broken_for(4370, ['hpc']), compile, [''])
test('tc249', normal, compile, [''])
......@@ -236,4 +236,5 @@ test('mc24', normal, compile_fail, [''])
test('mc25', normal, compile_fail, [''])
test('tcfail207', normal, compile_fail, [''])
test('T5084', normal, compile_fail, [''])
test('tcfail208', normal, compile_fail, [''])
tcfail208.hs:4:19:
Could not deduce (Eq (m a)) arising from a use of `=='
from the context (Monad m, Eq a)
bound by the type signature for
f :: (Monad m, Eq a) => a -> m a -> Bool
at tcfail208.hs:4:1-23
Possible fix:
add (Eq (m a)) to the context of
the type signature for f :: (Monad m, Eq a) => a -> m a -> Bool
or add an instance declaration for (Eq (m a))
In the expression: (return x == y)
In an equation for `f': f x y = (return x == y)
include ($confdir ++ "/../singlefile-macros.T")
test "largeArray" {
expect pass
pretest_cleanup()
simple_build_Main()
$res = simple_run_main_no_stdin()
pass when contents(qualify("run.stdout"))
== contents(qualify("expect.stdout"))
fail when otherwise
}
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