Mostly fix posix005. Complete fix blocked on #5648.
authorIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 13:08:37 +0000 (13:08 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 20 Nov 2011 13:08:37 +0000 (13:08 +0000)
testsuite/tests/lib/libposix/all.T
testsuite/tests/lib/libposix/posix005.hs

index 49d25d8..7cd243c 100644 (file)
@@ -1,3 +1,4 @@
 test('posix002', reqlib('unix'), compile_and_run, [''])
 test('posix003', normal,         compile_and_run, [''])
 test('posix004', reqlib('unix'), compile_and_run, [''])
+test('posix005', [reqlib('unix'), expect_broken(5648)], compile_and_run, [''])
index a531829..9ca569c 100644 (file)
@@ -1,25 +1,21 @@
-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
+
+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