tests: p11-kit-load.sh: verify that all modules are loaded after a private key operation

Signed-off-by: Nikos Mavrogiannopoulos <nmav@gnutls.org>

1 files changed, 9 insertions, 1 deletions

diff --git a/tests/pkcs11/list-tokens.c b/tests/pkcs11/list-tokens.c
index 6929b2381b..cc4326d901 100644
--- a/tests/pkcs11/list-tokens.c
+++ b/tests/pkcs11/list-tokens.c
@@ -58,7 +58,9 @@ int main(int argc, char **argv)
 	char *url;
 	gnutls_x509_trust_list_t tl;
 	gnutls_x509_crt_t crt;
+	gnutls_pkcs11_privkey_t key;
 	unsigned flag = 1;
+	unsigned private = 0;
 	unsigned int status;
 
 	ret = gnutls_global_init();
@@ -70,7 +72,7 @@ int main(int argc, char **argv)
 	gnutls_global_set_log_function(tls_log_func);
 	//gnutls_global_set_log_level(4711);
 
-	while((opt = getopt(argc, argv, "mvatd")) != -1) {
+	while((opt = getopt(argc, argv, "mvatdp")) != -1) {
 		switch(opt) {
 			case 'm':
 				/* initialize manually - i.e., do no module loading */
@@ -85,6 +87,12 @@ int main(int argc, char **argv)
 				 * if none done */
 				flag = 0;
 				break;
+			case 'p':
+				/* do private key operations */
+				assert(gnutls_pkcs11_privkey_init(&key) >= 0);
+				gnutls_pkcs11_privkey_import_url(key, "pkcs11:", 0);
+				gnutls_pkcs11_privkey_deinit(key);
+				break;
 			case 'a':
 				/* initialize auto - i.e., do module loading */
 				ret = gnutls_pkcs11_init(GNUTLS_PKCS11_FLAG_AUTO, NULL);