diff options
Diffstat (limited to 'tests/client-manifest-fraudulent.scm')
-rw-r--r-- | tests/client-manifest-fraudulent.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/client-manifest-fraudulent.scm b/tests/client-manifest-fraudulent.scm index b786140..a1bfe20 100644 --- a/tests/client-manifest-fraudulent.scm +++ b/tests/client-manifest-fraudulent.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 @@ -63,8 +63,7 @@ #:http-get respond)) (with-exception-handler (lambda (error) - (unless ((record-predicate &inconsistent-client-manifest-id) - ((record-accessor &cannot-fetch-client-manifest 'cause) error)) + (unless (inconsistent-client-manifest? error) (exit 3))) (lambda () (get-client-manifest @@ -72,4 +71,4 @@ #:http-get cache-http-get) (exit 4)) #:unwind? #t - #:unwind-for-type &cannot-fetch-client-manifest))) + #:unwind-for-type &inconsistent-client-manifest))) |