diff options
Diffstat (limited to 'tests/dpop-proof-no-ath.scm')
-rw-r--r-- | tests/dpop-proof-no-ath.scm | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/tests/dpop-proof-no-ath.scm b/tests/dpop-proof-no-ath.scm index 67b8a70..35bff75 100644 --- a/tests/dpop-proof-no-ath.scm +++ b/tests/dpop-proof-no-ath.scm @@ -18,6 +18,7 @@ (webid-oidc jti) (webid-oidc jwk) (webid-oidc testing) + ((webid-oidc parameters) #:prefix p:) (webid-oidc errors) (web uri) (srfi srfi-19) @@ -28,14 +29,13 @@ (lambda () (define jwk (generate-key #:n-size 2048)) (define cnf (jkt jwk)) - (define blacklist (make-jti-list)) (define proof - (issue-dpop-proof - jwk - #:alg 'RS256 - #:htm 'GET - #:htu (string->uri "https://example.com/res?query") - #:iat (time-utc->date (make-time time-utc 0 0)))) + (parameterize ((p:current-date 0)) + (issue-dpop-proof + jwk + #:alg 'RS256 + #:htm 'GET + #:htu (string->uri "https://example.com/res?query")))) (with-exception-handler (lambda (error) (let ((cause @@ -47,13 +47,12 @@ ;; claim (exit 1)))) (lambda () - (dpop-proof-decode (time-utc->date (make-time time-utc 0 10)) - blacklist - 'GET - (string->uri "https://example.com/res?query") - proof - cnf - #:access-token "aaa") + (parameterize ((p:current-date 10)) + (dpop-proof-decode 'GET + (string->uri "https://example.com/res?query") + proof + cnf + #:access-token "aaa")) (exit 2)) #:unwind? #t #:unwind-for-type &cannot-decode-dpop-proof))) |