summaryrefslogtreecommitdiff
path: root/tests/jwk-public.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2020-11-29 18:53:17 +0100
committerVivien Kraus <vivien@planete-kraus.eu>2021-06-19 15:44:33 +0200
commite74c0727183e310c479a1d45a472bdef68db9a04 (patch)
treed8d35a9bea75887ec05c1ddd79550ddca98cfbfa /tests/jwk-public.scm
parent118d76f79b03f8a1a4a865e0d396d1c11f5efc83 (diff)
Get a JWKS on the web
Diffstat (limited to 'tests/jwk-public.scm')
-rw-r--r--tests/jwk-public.scm10
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)))))