-- Test things of type IO ()

{- can't include this in backwards compatability tests

-- Normal

test101, test102, test103 :: IO ()
test101 = putStr "abcd"
test102 = return ()
test103 = putChar 'a'

-- Errors

test111, test112, test113, test114 :: IO ()
test111 = error "foo"
test112 = putStr (error "foo")
test113 = putStr "abcd" >> putStr (error "foo") >> putStr "efgh"
test114 = putStr "abcd" >> error "foo" >> putStr "efgh"

test123, test124, test125 :: IO ()
test123 = error (error "foo")
test124 = error x where x = error x
test125 = error x where x = 'a' : error x

-}

-- Test things of type a

-- Unit

test241, test242 :: ()
test241 = ()
test241, test242 :: ()
test241 = ()
test241 = ()