From 81453a38cc6f734cd9e7097ba34fe40e3c599474 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Mon, 25 Apr 2016 21:21:33 -0400 Subject: cleanup setEnv & unsetEnv --- testkiki/testkiki.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'testkiki/testkiki.hs') diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs index 11653f2..aa93e2c 100644 --- a/testkiki/testkiki.hs +++ b/testkiki/testkiki.hs @@ -106,6 +106,7 @@ doTests tkConfig = hspec $ do setEnv "GNUPGHOME" (gnupghome config) let args' = args ++ ["--chroot=" ++ chroot config] readProcess "./dist/build/kiki/kiki" args' "" + unsetEnv "GNUPGHOME" kiki'No'Env'No'Home config args = do let args' = args ++ ["--chroot=" ++ chroot config] @@ -119,6 +120,7 @@ doTests tkConfig = hspec $ do setEnv "GNUPGHOME" (gnupghome config) let args' = args ++ ["--chroot=" ++ chroot config,"--home=" ++ gnupghome config] readProcess "./dist/build/kiki/kiki" args' "" + unsetEnv "GNUPGHOME" -- UTILS isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str) -- cgit v1.2.3