summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testkiki/testkiki.hs4
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
96 96
97 it "creates new secring in /root/.gnupg" $ do 97 it "creates new secring in /root/.gnupg" $ do
98 let kiki = kiki'No'Env'No'Home tkConfig 98 let kiki = kiki'No'Env'No'Home tkConfig
99 unsetEnv "GNUPGHOME"
100 createDirectoryIfMissing True (chroot tkConfig </> "root" </> ".gnupg")
99 output <- kiki ["init"] 101 output <- kiki ["init"]
100 b <- doesFileExist (chroot tkConfig </> "root" </> "secring.gpg") 102 b <- doesFileExist (chroot tkConfig </> "root" </> ".gnupg" </> "secring.gpg")
101 (isInfixOf "New packet" output && b ) `shouldBe` True 103 (isInfixOf "New packet" output && b ) `shouldBe` True
102 where 104 where
103 kiki'Env config args = do 105 kiki'Env config args = do