Ticket #7069: test.hs

File test.hs, 135 bytes (added by shahn, 3 years ago)
Line 
1
2module Main where
3
4main = prop 6.0 0.109998815
5prop m x = do
6    let a = x * m
7    putStrLn (show a ++ " foo")
8    print (x * m == a)