diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-09 18:46:48 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 01:06:38 +0200 |
| commit | ded10e28782f289ad3db15320bcf619ab4336876 (patch) | |
| tree | 32609fd9f1eb0d2f8a23105e09f193827d16a275 /tests/dpop-proof-wrong-key.scm | |
| parent | 7b62790238902e10edb83c07286cf0643b097997 (diff) | |
Switch to a more sensible error reporting system
Diffstat (limited to 'tests/dpop-proof-wrong-key.scm')
| -rw-r--r-- | tests/dpop-proof-wrong-key.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/dpop-proof-wrong-key.scm b/tests/dpop-proof-wrong-key.scm index 497ae0e..ca1e01b 100644 --- a/tests/dpop-proof-wrong-key.scm +++ b/tests/dpop-proof-wrong-key.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 @@ -38,8 +38,7 @@ #:htu (string->uri "https://example.com/res#frag")))) (with-exception-handler (lambda (error) - (unless ((record-predicate &dpop-unconfirmed-key) - ((record-accessor &cannot-decode-dpop-proof 'cause) error)) + (unless (dpop-unconfirmed-key? error) (raise-exception error))) (lambda () (parameterize ((p:current-date 10)) @@ -49,4 +48,4 @@ cnf)) (exit 2)) #:unwind? #t - #:unwind-for-type &cannot-decode-dpop-proof))) + #:unwind-for-type &dpop-unconfirmed-key))) |