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 d1158e857ad06555f4f5ebcf148a353154c6cc97..672ae791db4798bfc8974c39a4e3e16fa1651c71 100755 (executable)
--- 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