diff options
Diffstat (limited to 'tests/dpop-proof-iat-in-future.scm')
-rw-r--r-- | tests/dpop-proof-iat-in-future.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/dpop-proof-iat-in-future.scm b/tests/dpop-proof-iat-in-future.scm index b5dd3f8..d7f345b 100644 --- a/tests/dpop-proof-iat-in-future.scm +++ b/tests/dpop-proof-iat-in-future.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 @@ -17,6 +17,7 @@ (use-modules (webid-oidc dpop-proof) (webid-oidc jti) (webid-oidc jwk) + (webid-oidc jws) (webid-oidc testing) (webid-oidc errors) ((webid-oidc parameters) #:prefix p:) @@ -38,8 +39,11 @@ #:htu (string->uri "https://example.com/res#frag")))) (with-exception-handler (lambda (error) - (unless ((record-predicate &dpop-signed-in-future) - ((record-accessor &cannot-decode-dpop-proof 'cause) error)) + (unless (and (signed-in-future? error) + (eqv? (time-second (date->time-utc (error-signature-date error))) + 10) + (eqv? (time-second (date->time-utc (error-current-date error))) + 0)) (raise-exception error))) (lambda () (parameterize ((p:current-date 0)) @@ -49,4 +53,4 @@ cnf)) (exit 2)) #:unwind? #t - #:unwind-for-type &cannot-decode-dpop-proof))) + #:unwind-for-type &signed-in-future))) |