From: Nikos Mavrogiannopoulos <nmav@gnutls.org>
Date: Wed, 17 Jan 2018 18:25:36 +0000 (+0100)
Subject: tests: check whether deletion of a certificate object works
X-Git-Tag: gnutls_3_6_2~31
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afc49cf600197eda3bdc8e539855d431f4602895;p=thirdparty%2Fgnutls.git

tests: check whether deletion of a certificate object works

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

diff --git a/tests/suite/testpkcs11.sh b/tests/suite/testpkcs11.sh
index d1158e857a..672ae791db 100755
--- a/tests/suite/testpkcs11.sh
+++ b/tests/suite/testpkcs11.sh
@@ -172,6 +172,23 @@ write_serv_cert () {
 
 }
 
+# $1: token
+# $2: PIN
+test_delete_cert () {
+	export GNUTLS_PIN="$2"
+	filename="$3"
+	token="$1"
+
+	echo -n "* Deleting the server certificate... "
+	${P11TOOL} ${ADDITIONAL_PARAM} --login --delete "${token};object=serv-cert;object-type=cert" >>"${TMPFILE}" 2>&1
+	if test $? = 0; then
+		echo ok
+	else
+		echo failed
+		exit_error
+	fi
+}
+
 # $1: token
 # $2: PIN
 # $3: bits
@@ -906,6 +923,8 @@ write_certificate_id_test_rsa "${TOKEN}" "${GNUTLS_PIN}" "${srcdir}/pkcs11-certs
 write_certificate_id_test_rsa2 "${TOKEN}" "${GNUTLS_PIN}" "${srcdir}/pkcs11-certs/ca.key" "${srcdir}/pkcs11-certs/ca.crt"
 write_certificate_id_test_ecdsa "${TOKEN}" "${GNUTLS_PIN}" "${srcdir}/pkcs11-certs/ca.key" "${srcdir}/pkcs11-certs/ca.crt"
 
+test_delete_cert "${TOKEN}" "${GNUTLS_PIN}"
+
 test_sign_set_pin "${TOKEN}" "${GNUTLS_PIN}"
 
 if test ${RETCODE} = 0; then