diff options
author | James Crayne <jim.crayne@gmail.com> | 2016-04-25 22:40:30 -0400 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2016-04-26 06:04:05 -0400 |
commit | f00baeefa46a0507f88beee5535dfbb036097ece (patch) | |
tree | 24bb7d0db53578696d03fae3afd6f7f8b4b05f87 /testkiki | |
parent | 65291ca8b93b87658e314d0bd44e5bb06021bdb7 (diff) |
run kiki init tests before export-public
Diffstat (limited to 'testkiki')
-rw-r--r-- | testkiki/testkiki.hs | 34 |
1 files changed, 18 insertions, 16 deletions
diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs index 3ba7155..839cebf 100644 --- a/testkiki/testkiki.hs +++ b/testkiki/testkiki.hs | |||
@@ -63,22 +63,7 @@ doTests tkConfig = hspec $ do | |||
63 | evaluate (error "TODO:testsuite") `shouldThrow` anyException | 63 | evaluate (error "TODO:testsuite") `shouldThrow` anyException |
64 | -} | 64 | -} |
65 | 65 | ||
66 | describe "kiki export-public" $ do | 66 | -- **** kiki tests ***** |
67 | it "does not modify mtime of GNUPGHOME keyrings" $ do | ||
68 | pending | ||
69 | it "creates external pem files which do not exist" $ do | ||
70 | pending | ||
71 | it "does not leak secret data from GNUPGHOME keyrings" $ do | ||
72 | pending | ||
73 | |||
74 | describe "kiki export-secret" $ do | ||
75 | it "fails when public keys in existing PEM files do not match" $ do | ||
76 | pending | ||
77 | it "updates public pem files to private ones when told to" $ do | ||
78 | pending | ||
79 | it "creates external pem files which do not exist" $ do | ||
80 | pending | ||
81 | |||
82 | describe "kiki init" $ do | 67 | describe "kiki init" $ do |
83 | it "honors GNUPGHOME environment variable" $ do | 68 | it "honors GNUPGHOME environment variable" $ do |
84 | let kiki = kiki'Env tkConfig | 69 | let kiki = kiki'Env tkConfig |
@@ -105,6 +90,23 @@ doTests tkConfig = hspec $ do | |||
105 | b <- doesFileExist (chroot tkConfig </> "root" </> ".gnupg" </> "secring.gpg") | 90 | b <- doesFileExist (chroot tkConfig </> "root" </> ".gnupg" </> "secring.gpg") |
106 | (isInfixOf "New packet" output && b ) `shouldBe` True | 91 | (isInfixOf "New packet" output && b ) `shouldBe` True |
107 | 92 | ||
93 | describe "kiki export-public" $ do | ||
94 | it "does not modify mtime of GNUPGHOME keyrings" $ do | ||
95 | pending | ||
96 | it "creates external pem files which do not exist" $ do | ||
97 | pending | ||
98 | it "does not leak secret data from GNUPGHOME keyrings" $ do | ||
99 | pending | ||
100 | |||
101 | describe "kiki export-secret" $ do | ||
102 | it "fails when public keys in existing PEM files do not match" $ do | ||
103 | pending | ||
104 | it "updates public pem files to private ones when told to" $ do | ||
105 | pending | ||
106 | it "creates external pem files which do not exist" $ do | ||
107 | pending | ||
108 | |||
109 | -- **** cokiki tests ***** | ||
108 | describe "cokiki ssh-client" $ do | 110 | describe "cokiki ssh-client" $ do |
109 | it "modifies system ssh configuration to respect /var/cache/kiki/ssh_known_hosts" $ do | 111 | it "modifies system ssh configuration to respect /var/cache/kiki/ssh_known_hosts" $ do |
110 | pending | 112 | pending |