From a3f6bc7b7a18fb841c04efe0ea137096cc036764 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Thu, 17 Nov 2016 16:37:41 -0500
Subject: [PATCH] testsuite: Ensure that posix005 output is normalized
The order in which getEnvironment returns its result is platform dependent. Sort
the output to ensure consistent output across platforms.
---
tests/libposix/posix005.hs | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/tests/libposix/posix005.hs b/tests/libposix/posix005.hs
index 4365eb5..2988f4c 100644
--- a/tests/libposix/posix005.hs
+++ b/tests/libposix/posix005.hs
@@ -2,20 +2,23 @@
import System.IO
import System.Posix.Env
+printEnv :: IO ()
+printEnv = getEnvironment >>= print . sort
+
main = do
hSetBuffering stdout NoBuffering
term <- getEnv "TERM"
maybe (return ()) putStrLn term
setEnvironment [("one","1"),("two","2")]
- getEnvironment >>= print
+ printEnv
setEnv "foo" "bar" True
- getEnvironment >>= print
+ printEnv
setEnv "foo" "baz" True
- getEnvironment >>= print
+ printEnv
setEnv "fu" "bar" True
- getEnvironment >>= print
+ printEnv
unsetEnv "foo"
- getEnvironment >>= print
+ printEnv
clearEnv
- getEnvironment >>= print
+ printEnv
--
GitLab