diff options
| author |  Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-30 19:23:29 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-30 19:23:29 +0100 |
| commit | 5ee7433f9fbe1cf1ea825eaf5943edff0f9bd7b3 (patch) | |
| tree | bc98686654bec2f279ea22dba08cdca7269a6696 /tests | |
| parent | 335fd69c61076db160fe7011814e26a577958147 (diff) | |
Re-enable posix005 test (#5648)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/libposix/all.T | 2 | ||||
| -rw-r--r-- | tests/libposix/posix005.hs | 6 | ||||
| -rw-r--r-- | tests/libposix/posix005.stdout | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/tests/libposix/all.T b/tests/libposix/all.T index a266040..3fb52ec 100644 --- a/tests/libposix/all.T +++ b/tests/libposix/all.T @@ -6,7 +6,7 @@ test('posix003', if_os('mingw32', skip), compile_and_run, ['']) test('posix004', [ reqlib('unix') ], compile_and_run, ['']) -test('posix005', [reqlib('unix'), expect_broken(5648)], compile_and_run, ['']) +test('posix005', [reqlib('unix') ], compile_and_run, ['']) test('posix006', reqlib('unix'), compile_and_run, ['']) test('posix009', [ omit_ways(threaded_ways), reqlib('unix') ], compile_and_run, ['']) diff --git a/tests/libposix/posix005.hs b/tests/libposix/posix005.hs index 9ca569c..4365eb5 100644 --- a/tests/libposix/posix005.hs +++ b/tests/libposix/posix005.hs @@ -4,8 +4,8 @@ import System.Posix.Env main = do hSetBuffering stdout NoBuffering - term <- getEnvVar "TERM" - putStrLn term + term <- getEnv "TERM" + maybe (return ()) putStrLn term setEnvironment [("one","1"),("two","2")] getEnvironment >>= print setEnv "foo" "bar" True @@ -16,6 +16,6 @@ main = do getEnvironment >>= print unsetEnv "foo" getEnvironment >>= print - setEnvironment [] + clearEnv getEnvironment >>= print diff --git a/tests/libposix/posix005.stdout b/tests/libposix/posix005.stdout index 9896f43..ace79ee 100644 --- a/tests/libposix/posix005.stdout +++ b/tests/libposix/posix005.stdout @@ -1,4 +1,4 @@ -emacs +vt100 [("one","1"),("two","2")] [("one","1"),("two","2"),("foo","bar")] [("one","1"),("two","2"),("foo","baz")] |