summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/lib/libposix/posix005.hs
blob: a53182971ab5ddbbcad7a9aa6b6351b3aa918110 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
import Posix
import IO
main =
    hSetBuffering stdout NoBuffering >>
    getEnvVar "TERM" >>= \ term ->
    putStrLn term >>
    setEnvironment [("one","1"),("two","2")] >>
    getEnvironment >>= \ env ->
    print env >>
    setEnvVar "foo" "bar" >>
    getEnvironment >>= \ env ->
    print env >>
    setEnvVar "foo" "baz" >>
    getEnvironment >>= \ env ->
    print env >>
    setEnvVar "fu" "bar" >>
    getEnvironment >>= \ env ->
    print env >>
    removeEnvVar "foo" >>
    getEnvironment >>= \ env ->
    print env >>
    setEnvironment [] >>
    getEnvironment >>= \ env ->
    print env