diff options
Diffstat (limited to 'testkiki/testkiki.hs')
-rw-r--r-- | testkiki/testkiki.hs | 4 |
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 |