Add key index support in gatekeeper test infrastructure

diff --git a/testsuite/lib/gatekeeper.exp b/testsuite/lib/gatekeeper.exp
index 521dfe67cf2974f299a08b9bbac0fe3f10c59015..5d599bd70fb6e33cd0f3a5f772c627b99d9b0ce3 100644 (file)
--- a/testsuite/lib/gatekeeper.exp
+++ b/testsuite/lib/gatekeeper.exp
@@ -95,6 +95,7 @@ proc make_test_environment { base_dir } {
 }
 
 load_lib mockgpg.exp
+load_lib keyindex.exp
 
 # make_test_keyrings /some/dir/some/where {
 #     some-package-name {
@@ -129,6 +130,7 @@ proc make_test_keyrings { base_dir keylist } {
 #     ...
 # }
 proc register_test_packages { base_dir packlist } {
+    set havekeys no
     foreach { package info } $packlist {
        file mkdir [file join $base_dir packages $package]
        foreach { element value } $info { switch $element {
@@ -140,6 +142,7 @@ proc register_test_packages { base_dir packlist } {
            keys {
                write_test_keyring \
                    [file join $base_dir packages $package pubring.gpg] $value
+               set havekeys yes
            }
            maintainers {
                set c [open [file join $base_dir m.bypkg] a]
@@ -149,6 +152,9 @@ proc register_test_packages { base_dir packlist } {
            }
        } }
     }
+    if { $havekeys } {
+       write_key_index [file join $base_dir packages keyindex] $packlist
+    }
 }
 
 # make_test_case /some/dir/some/where {