Differential D422 Diff 1259 tests/openpgp/quick-key-manipulation.scm

Changeset View

Standalone View

Context not available.
	;; XXX I don't know how to verify this. The keylisting does not seem	;; XXX I don't know how to verify this. The keylisting does not seem
	;; to indicate the primary UID.	;; to indicate the primary UID.

	(info "Checking that we get an error making non-existant user ID the primary one.")	(info "Checking that we get an error making non-existent user ID the primary one.")
	(catch '()	(catch '()
	(call-check `(,@GPG --quick-set-primary-uid ,(exact alpha) ,charlie))	(call-check `(,@GPG --quick-set-primary-uid ,(exact alpha) ,charlie))
	(error "Expected an error, but get none."))	(error "Expected an error, but get none."))
Context not available.
	(info "Checking that we can revoke a user ID...")	(info "Checking that we can revoke a user ID...")
	(call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,alpha))	(call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,alpha))

	(info "Checking that we get an error revoking a non-existant user ID.")	(info "Checking that we get an error revoking a non-existent user ID.")
	(catch '()	(catch '()
	(call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,charlie))	(call-check `(,@GPG --quick-revoke-uid ,(exact bravo) ,charlie))
	(error "Expected an error, but get none."))	(error "Expected an error, but get none."))
Context not available.