diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-11-30 21:39:32 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-19 15:44:36 +0200 |
commit | 0dfaa2a0a9f9772557b06ca7542d4c1b915d7b0c (patch) | |
tree | 5251e4c081af9bb751826889d8f92ed8687523f3 /tests/dpop-proof-valid.scm | |
parent | b3f41c0fa861a668c054bdce92c8fb86707a784c (diff) |
Implement the DPoP proof
Diffstat (limited to 'tests/dpop-proof-valid.scm')
-rw-r--r-- | tests/dpop-proof-valid.scm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/dpop-proof-valid.scm b/tests/dpop-proof-valid.scm new file mode 100644 index 0000000..a05a223 --- /dev/null +++ b/tests/dpop-proof-valid.scm @@ -0,0 +1,30 @@ +(use-modules (webid-oidc dpop-proof) + (webid-oidc jti) + (webid-oidc jwk) + (webid-oidc testing) + (web uri) + (srfi srfi-19) + (web response)) + +(with-test-environment + "dpop-proof-valid" + (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#frag") + #:iat (time-utc->date (make-time time-utc 0 0)))) + (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)) + (unless decoded + (exit 1)))) |