diff options
Diffstat (limited to 'testkiki/testkiki.hs')
-rw-r--r-- | testkiki/testkiki.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs index 32c8284..4215637 100644 --- a/testkiki/testkiki.hs +++ b/testkiki/testkiki.hs | |||
@@ -154,6 +154,10 @@ doTests tkConfig = hspec $ do | |||
154 | unsetEnv "GNUPGHOME" | 154 | unsetEnv "GNUPGHOME" |
155 | return r | 155 | return r |
156 | 156 | ||
157 | cokiki config args = do | ||
158 | let args' = args ++ ["--chroot=" ++ chroot config, "--homedir=" ++ gnupghome config] | ||
159 | readProcess "./dist/build/kiki/kiki" args' "" | ||
160 | |||
157 | -- UTILS | 161 | -- UTILS |
158 | isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str) | 162 | isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str) |
159 | in not (B.null match) | 163 | in not (B.null match) |