diff options
Diffstat (limited to 'tests/dpop-proof-valid-ath.scm')
| -rw-r--r-- | tests/dpop-proof-valid-ath.scm | 48 |
1 files changed, 23 insertions, 25 deletions
diff --git a/tests/dpop-proof-valid-ath.scm b/tests/dpop-proof-valid-ath.scm index 259190f..1e15e17 100644 --- a/tests/dpop-proof-valid-ath.scm +++ b/tests/dpop-proof-valid-ath.scm @@ -16,9 +16,9 @@ (use-modules (webid-oidc dpop-proof) (webid-oidc access-token) - (webid-oidc jti) (webid-oidc jwk) (webid-oidc testing) + ((webid-oidc parameters) #:prefix p:) (web uri) (srfi srfi-19) (web response)) @@ -29,32 +29,30 @@ (define jwk (generate-key #:n-size 2048)) (define idp-key (generate-key #:n-size 2048)) (define cnf (jkt jwk)) - (define blacklist (make-jti-list)) (define access-token - (issue-access-token - idp-key - #:alg 'RS256 - #:webid "https://data.provider/subject" - #:iss "https://identity.provider" - #:iat 10 - #:exp 3610 - #:client-key jwk - #:client-id "https://client")) + (parameterize ((p:current-date 10)) + (issue-access-token + idp-key + #:alg 'RS256 + #:webid "https://data.provider/subject" + #:iss "https://identity.provider" + #:validity 3600 + #:client-key jwk + #:client-id "https://client"))) (define proof - (issue-dpop-proof - jwk - #:alg 'RS256 - #:htm 'GET - #:htu (string->uri "https://example.com/res#frag") - #:iat (time-utc->date (make-time time-utc 0 0)) - #:access-token access-token)) + (parameterize ((p:current-date 0)) + (issue-dpop-proof + jwk + #:alg 'RS256 + #:htm 'GET + #:htu (string->uri "https://example.com/res#frag") + #:access-token access-token))) (define decoded - (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 access-token)) + (parameterize ((p:current-date 10)) + (dpop-proof-decode 'GET + (string->uri "https://example.com/res?query") + proof + cnf + #:access-token access-token))) (unless decoded (exit 1)))) |