diff options
Diffstat (limited to 'tests/openpgp/mds.scm')
| -rwxr-xr-x | tests/openpgp/mds.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/openpgp/mds.scm b/tests/openpgp/mds.scm index bf598eb66..fb468e5de 100755 --- a/tests/openpgp/mds.scm +++ b/tests/openpgp/mds.scm @@ -49,7 +49,7 @@ (define (test-hash hash ref) (unless (eq? #f ref) (if (not (string=? (:value hash) (:value ref))) - (error "failed")))) + (fail "failed")))) ;; Test whether the hashes computed over S match the REFERENCE set. (define (test-hashes msg s reference) |