From 891c0bf89b89e3995d2dbc1f6f72b43312b14a44 Mon Sep 17 00:00:00 2001 From: Paolo Capriotti Date: Fri, 9 Mar 2012 11:44:41 +0000 Subject: Copy tests from GHC testsuite (#1161) --- tests/libposix/posix005.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 tests/libposix/posix005.hs (limited to 'tests/libposix/posix005.hs') 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 + -- cgit v1.2.3