diff options
Diffstat (limited to 'tests/refresh-token-with-wrong-key.scm')
| -rw-r--r-- | tests/refresh-token-with-wrong-key.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/refresh-token-with-wrong-key.scm b/tests/refresh-token-with-wrong-key.scm index 38537ec..8a19905 100644 --- a/tests/refresh-token-with-wrong-key.scm +++ b/tests/refresh-token-with-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 @@ -34,7 +34,7 @@ (define refresh-token (issue-refresh-token sub aud (jkt first-key))) (with-exception-handler (lambda (error) - (unless ((record-predicate &invalid-key-for-refresh-token) error) + (unless (invalid-refresh-token? error) (exit 1))) (lambda () (with-refresh-token refresh-token second-key @@ -42,4 +42,4 @@ (exit 2))) (exit 3)) #:unwind? #t - #:unwind-for-type &invalid-key-for-refresh-token))) + #:unwind-for-type &invalid-refresh-token))) |