diff options
Diffstat (limited to 'tests/jws.scm')
-rw-r--r-- | tests/jws.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/jws.scm b/tests/jws.scm index cfd57b1..981e751 100644 --- a/tests/jws.scm +++ b/tests/jws.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 @@ -33,8 +33,8 @@ (parsed (jws-decode encoded (lambda (jws) (and (jws? jws) key)))) - (parsed-header (jws-header parsed)) - (parsed-payload (jws-payload parsed)) + (parsed-header (car parsed)) + (parsed-payload (cdr parsed)) (alg (jws-alg parsed)) (typ (assq-ref parsed-header 'typ)) (sub (assq-ref parsed-payload 'sub)) @@ -43,8 +43,8 @@ (iat (assq-ref parsed-payload 'iat)) (re-encoded (jws-encode parsed other-key)) (re-parsed (jws-decode re-encoded (lambda (jws) other-key))) - (re-parsed-header (jws-header re-parsed)) - (re-parsed-payload (jws-payload re-parsed)) + (re-parsed-header (car re-parsed)) + (re-parsed-payload (cdr re-parsed)) (re-alg (jws-alg re-parsed)) (re-typ (assq-ref re-parsed-header 'typ)) (re-sub (assq-ref re-parsed-payload 'sub)) |