no good reason these tests should be expect_fail, as far as I can tell
[packages/unix.git] / tests / resourceLimit.hs
1
2 -- #2038
3
4 import System.Posix.Resource
5
6 main :: IO ()
7 main = do
8 let soft = ResourceLimit 5
9 hard = ResourceLimit 10
10 setResourceLimit ResourceCPUTime (ResourceLimits soft hard)
11 r <- getResourceLimit ResourceCPUTime
12 let (ResourceLimit s) = softLimit r
13 let (ResourceLimit h) = hardLimit r
14 putStrLn $ show s
15 putStrLn $ show h
16