Fix bug in testsuite keyring checks

diff --git a/testsuite/lib/mockgpg.exp b/testsuite/lib/mockgpg.exp
index cbef9f908a6f3fa9e58a0e70e80378261a9c6003..d661c721d14c2d6bd143880d97c7f396906ff29f 100644 (file)
--- a/testsuite/lib/mockgpg.exp
+++ b/testsuite/lib/mockgpg.exp
@@ -67,7 +67,8 @@ proc check_test_keyring { testname file keylist } {
                    }
                }
                subkey-of {
-                   set wantkeys($keyid,parent) $val
+                   set wantkeys($keyid,parent) \
+                       [format "%016s" [string toupper $val]]
                }
                expired -
                expires {