made a test pass.

1 files changed, 3 insertions, 1 deletions

diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs
index 0eb49f0..11653f2 100644
--- a/testkiki/testkiki.hs
+++ b/testkiki/testkiki.hs
@@ -96,8 +96,10 @@ doTests tkConfig = hspec $ do
 
         it "creates new secring in /root/.gnupg" $ do
             let kiki = kiki'No'Env'No'Home tkConfig 
+            unsetEnv "GNUPGHOME"
+            createDirectoryIfMissing True (chroot tkConfig </> "root" </> ".gnupg")
             output <- kiki ["init"]
-            b <- doesFileExist (chroot tkConfig </> "root" </> "secring.gpg")
+            b <- doesFileExist (chroot tkConfig </> "root" </> ".gnupg" </> "secring.gpg")
             (isInfixOf "New packet" output && b ) `shouldBe` True
     where
         kiki'Env config args = do