backport testsuite to base 4.6.0

1 files changed, 8 insertions, 1 deletions

diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs
index 839cebf..32c8284 100644
--- a/testkiki/testkiki.hs
+++ b/testkiki/testkiki.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DoAndIfThenElse #-}
+{-# LANGUAGE CPP #-}
+#if !MIN_VERSION_base(4,7,0)
+import qualified System.Posix.Env
+#endif
 import System.Environment
 --import System.Posix.Env.ByteString (getEnv)
 import System.Posix.Files
@@ -15,6 +19,10 @@ import Control.Applicative
 import Control.Monad
 import qualified Data.ByteString.Char8 as B
 
+#if !MIN_VERSION_base(4,7,0)
+setEnv k v = System.Posix.Env.setEnv k v True
+unsetEnv = System.Posix.Env.unsetEnv
+#endif
 
 data TestKikiSettings = TKS
         { gnupghome :: FilePath
@@ -22,7 +30,6 @@ data TestKikiSettings = TKS
         }
     deriving (Show,Eq)
 
-
 main = do
     args <- getArgs
     cwd <- getCurrentDirectory