tests: list-tokens: not only list but also verify whether module is operational

Signed-off-by: Nikos Mavrogiannopoulos <nmav@redhat.com>

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/pkcs11/list-tokens.c b/tests/pkcs11/list-tokens.c
index 42092b45f9..220b9de763 100644
--- a/tests/pkcs11/list-tokens.c
+++ b/tests/pkcs11/list-tokens.c
@@ -119,5 +119,20 @@ int main(int argc, char **argv)
 		free(url);
 	}
 
+	/* try whether these URIs are operational */
+	for (i=0;;i++) {
+		unsigned tflags;
+
+		ret = _gnutls_pkcs11_token_get_url(i, 0, &url, flag);
+		if (ret < 0)
+			break;
+		ret = gnutls_pkcs11_token_get_flags(url, &tflags);
+		if (ret < 0) {
+			fprintf(stderr, "cannot get token %s flags: %s\n", url, gnutls_strerror(ret));
+			exit(1);
+		}
+		free(url);
+	}
+
 	gnutls_global_deinit();
 }