summaryrefslogtreecommitdiff
path: root/testkiki/testkiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testkiki/testkiki.hs')
-rw-r--r--testkiki/testkiki.hs2
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)