(use-modules
 (webid-oidc testing)
 (webid-oidc errors)
 ((webid-oidc stubs) #:prefix stubs:)
 (rnrs bytevectors))

(with-test-environment
 "hash-unsupported"
 (lambda ()
   (with-exception-handler
       (lambda (error)
         (unless ((record-predicate &unsupported-alg) error)
           (exit 1))
         (let ((value ((record-accessor &unsupported-alg 'value) error)))
           (unless (eq? value 'SHA-1024)
             (exit 2))))
     (lambda ()
       (stubs:hash 'SHA-1024 "hello :)")
       (exit 3))
     #:unwind? #t
     #:unwind-for-type &unsupported-alg)))