tests/libposix/posix005.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24


import System.IO
import System.Posix.Env

printEnv :: IO ()
printEnv = getEnvironment >>= print . sort

main = do
    hSetBuffering stdout NoBuffering
    term <- getEnv "TERM"
    maybe (return ()) putStrLn term
    setEnvironment [("one","1"),("two","2")]
    printEnv
    setEnv "foo" "bar" True
    printEnv
    setEnv "foo" "baz" True
    printEnv
    setEnv "fu" "bar" True
    printEnv
    unsetEnv "foo"
    printEnv
    clearEnv
    printEnv