diff options
Diffstat (limited to 'tests/jwk-public.scm')
| -rw-r--r-- | tests/jwk-public.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tests/jwk-public.scm b/tests/jwk-public.scm index 4830845..c3a6b99 100644 --- a/tests/jwk-public.scm +++ b/tests/jwk-public.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 @@ -15,12 +15,19 @@ ;; along with this program. If not, see <https://www.gnu.org/licenses/>. (use-modules (webid-oidc jwk) - (webid-oidc testing)) + (webid-oidc testing) + (oop goops)) (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) + (jwk->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 (is-a? key <public-key>) (exit 1))))) |