diff options
Diffstat (limited to 'tests/hash-unsupported.scm')
-rw-r--r-- | tests/hash-unsupported.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/hash-unsupported.scm b/tests/hash-unsupported.scm index 3924202..bcea18c 100644 --- a/tests/hash-unsupported.scm +++ b/tests/hash-unsupported.scm @@ -1,4 +1,4 @@ -;; webid-oidc, implementation of the Solid specification +;; disfluid, implementation of the Solid specification ;; Copyright (C) 2020, 2021 Vivien Kraus ;; This program is free software: you can redistribute it and/or modify @@ -25,13 +25,14 @@ (lambda () (with-exception-handler (lambda (error) - (unless ((record-predicate &unsupported-alg) error) + (unless (stubs:unsupported-algorithm? error) (exit 1)) - (let ((value ((record-accessor &unsupported-alg 'value) error))) - (unless (eq? value 'SHA-1024) - (exit 2)))) + (unless (eq? (stubs:unsupported-algorithm-alg error) 'SHA-1024) + (exit 2)) + (unless (eq? (stubs:unsupported-algorithm-application error) 'hash) + (exit 3))) (lambda () (stubs:hash 'SHA-1024 "hello :)") - (exit 3)) + (exit 4)) #:unwind? #t - #:unwind-for-type &unsupported-alg))) + #:unwind-for-type stubs:&unsupported-algorithm))) |