diff options
author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 11:44:41 +0000 |
---|---|---|
committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 11:44:41 +0000 |
commit | 891c0bf89b89e3995d2dbc1f6f72b43312b14a44 (patch) | |
tree | 2f49d3817b718b226ca37489302bae735bf9ade0 /tests/libposix/posix005.hs | |
parent | 0e8de7869a0f3b32d2ac8cbe2aad74eb7dcf054a (diff) |
Copy tests from GHC testsuite (#1161)
Diffstat (limited to 'tests/libposix/posix005.hs')
-rw-r--r-- | tests/libposix/posix005.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/libposix/posix005.hs b/tests/libposix/posix005.hs new file mode 100644 index 0000000..9ca569c --- /dev/null +++ b/tests/libposix/posix005.hs @@ -0,0 +1,21 @@ + +import System.IO +import System.Posix.Env + +main = do + hSetBuffering stdout NoBuffering + term <- getEnvVar "TERM" + putStrLn term + setEnvironment [("one","1"),("two","2")] + getEnvironment >>= print + setEnv "foo" "bar" True + getEnvironment >>= print + setEnv "foo" "baz" True + getEnvironment >>= print + setEnv "fu" "bar" True + getEnvironment >>= print + unsetEnv "foo" + getEnvironment >>= print + setEnvironment [] + getEnvironment >>= print + |