diff options
author | James Crayne <jim.crayne@gmail.com> | 2016-04-25 21:21:33 -0400 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2016-04-26 06:04:05 -0400 |
commit | 81453a38cc6f734cd9e7097ba34fe40e3c599474 (patch) | |
tree | cc59e46b2f4171ed825e7795887c7228eb64c4a1 /testkiki/testkiki.hs | |
parent | fbcfe6931c808b93584640cb660672da4426e3f6 (diff) |
cleanup setEnv & unsetEnv
Diffstat (limited to 'testkiki/testkiki.hs')
-rw-r--r-- | testkiki/testkiki.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 | |||
106 | setEnv "GNUPGHOME" (gnupghome config) | 106 | setEnv "GNUPGHOME" (gnupghome config) |
107 | let args' = args ++ ["--chroot=" ++ chroot config] | 107 | let args' = args ++ ["--chroot=" ++ chroot config] |
108 | readProcess "./dist/build/kiki/kiki" args' "" | 108 | readProcess "./dist/build/kiki/kiki" args' "" |
109 | unsetEnv "GNUPGHOME" | ||
109 | 110 | ||
110 | kiki'No'Env'No'Home config args = do | 111 | kiki'No'Env'No'Home config args = do |
111 | let args' = args ++ ["--chroot=" ++ chroot config] | 112 | let args' = args ++ ["--chroot=" ++ chroot config] |
@@ -119,6 +120,7 @@ doTests tkConfig = hspec $ do | |||
119 | setEnv "GNUPGHOME" (gnupghome config) | 120 | setEnv "GNUPGHOME" (gnupghome config) |
120 | let args' = args ++ ["--chroot=" ++ chroot config,"--home=" ++ gnupghome config] | 121 | let args' = args ++ ["--chroot=" ++ chroot config,"--home=" ++ gnupghome config] |
121 | readProcess "./dist/build/kiki/kiki" args' "" | 122 | readProcess "./dist/build/kiki/kiki" args' "" |
123 | unsetEnv "GNUPGHOME" | ||
122 | 124 | ||
123 | -- UTILS | 125 | -- UTILS |
124 | isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str) | 126 | isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str) |