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