From 65dcea26eb9cc44f321e219e65ee50ef7045b444 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Mon, 25 Apr 2016 23:00:26 -0400
Subject: testkiki, cokiki helper function

---
 testkiki/testkiki.hs | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
cgit v1.2.3