testkiki, cokiki helper function

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
             unsetEnv "GNUPGHOME"
             return r
 
+        cokiki config args = do
+            let args' = args ++ ["--chroot=" ++ chroot config, "--homedir=" ++ gnupghome config]
+            readProcess "./dist/build/kiki/kiki" args' ""
+
         -- UTILS
         isInfixOf sub str = let (_,match) = B.breakSubstring (B.pack sub) (B.pack str)
                                 in not (B.null match)