tests/jwk-kty-rsa-incorrect.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(use-modules (webid-oidc stubs)
             (webid-oidc testing)
             (webid-oidc errors))

(with-test-environment
 "jwk-kty-ec-incorrect"
 (lambda ()
   (let* ((key (json-string->scm "{\"kty\":\"RSA\",\"e\":\"AQAB\",\"kid\":\"db7cdbbf-0ca3-48da-abf6-8f34002a4651\",\"n\":\"--\"}"))
          (kty
           (with-exception-handler
               (lambda (exn)
                 #f)
             (lambda ()
               (kty key))
             #:unwind? #t
             #:unwind-for-type &not-a-jwk)))
     (when kty
       (exit 1)))))