diff options
Diffstat (limited to 'tests/jwk-public.scm')
-rw-r--r-- | tests/jwk-public.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/jwk-public.scm b/tests/jwk-public.scm new file mode 100644 index 0000000..d82c80b --- /dev/null +++ b/tests/jwk-public.scm @@ -0,0 +1,10 @@ +(use-modules (webid-oidc jwk) + (webid-oidc testing)) + +(with-test-environment + "jwk-public" + (lambda () + (let ((key + '((kty . "RSA") (alg . "RS256") (n . "sV158-MQ-5-sP2iTJibiMap1ug8tNY97laOud3Se_3jd4INq36NwhLpgU3FC5SCfJOs9wehTLzv_hBuo-sW0JNjAEtMEE-SDtx5486gjymDR-5Iwv7bgt25tD0cDgiboZLt1RLn-nP-V3zgYHZa_s9zLjpNyArsWWcSh6tWe2R8yW6BqS8l4_9z8jkKeyAwWmdpkY8BtKS0zZ9yljiCxKvs8CKjfHmrayg45sZ8V1-aRcjtR2ECxATHjE8L96_oNddZ-rj2axf2vTmnkx3OvIMgx0tZ0ycMG6Wy8wxxaR5ir2LV3Gkyfh72U7tI8Q1sokPmH6G62JcduNY66jEQlvQ") (kid . "dedc012d07f52aedfd5f97784e1bcbe23c19724d") (use . "sig") (e . "AQAB")))) + (unless (jwk-public? key) + (exit 1))))) |