From ded10e28782f289ad3db15320bcf619ab4336876 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 9 Aug 2021 18:46:48 +0200 Subject: Switch to a more sensible error reporting system --- tests/client-manifest.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/client-manifest.scm') diff --git a/tests/client-manifest.scm b/tests/client-manifest.scm index 2812ede..8e98091 100644 --- a/tests/client-manifest.scm +++ b/tests/client-manifest.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 @@ -66,13 +66,13 @@ (exit 4)) (with-exception-handler (lambda (error) - (unless ((record-predicate &unauthorized-redirection-uri) error) + (unless (unauthorized-redirect-uri? error) (exit 5))) (lambda () (client-manifest-check-redirect-uri mf "https://fraudulent-app.example.com/callback") (exit 55)) #:unwind? #t - #:unwind-for-type &unauthorized-redirection-uri) + #:unwind-for-type &unauthorized-redirect-uri) (receive (response response-body) (serve-client-manifest (time-utc->date (make-time time-utc 0 3600)) -- cgit v1.2.3