diff options
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) |