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
+