ref: d65bc804563c41d1be4a6620ccde395555cb6da9
dir: /tests/IOTest.hs/
module IOTest(module IOTest) where
import Prelude
import System.IO as IO
import System.Environment
import Debug.Trace
f :: Int -> Int
f x = x*2+1
foo :: IO ()
foo = do
putStrLn "foo 1"
putStrLn "foo 2"
main :: IO ()
main = do
tstart <- getTimeMilli
putChar 'a'
putChar 'b'
c <- getChar
putStrLn [c,c,c]
let { p = putStrLn "hello" }
p
p
p
cprint ((+) :: Int->Int->Int)
hout <- openFile "test.tmp" WriteMode
hPutChar hout 'a'
hPutChar hout 'z'
hClose hout
hin <- openFile "test.tmp" ReadMode
c1 <- hGetChar hin
c2 <- hGetChar hin
putStrLn $ show (c1, c2)
writeFile "test2.tmp" "more\n"
s <- readFile "test2.tmp"
putStrLn (show s)
writeSerialized "f.tmp" f
g <- readSerialized "f.tmp"
putStrLn $ show $ (g 5 :: Int)
foo
putStrLn $ show $ trace "tracing" 5
as <- getArgs
putStrLn $ show as
putStrLn $ show $ seq (1 + 2) 5
putStrLn $ show $ seq (1 + trace "seq" 2) 5
tend <- getTimeMilli
putStrLn $ show (tend - tstart) ++ "ms execution time"