Switch to a more sensible error reporting system

1 files changed, 0 insertions, 45 deletions

diff --git a/tests/unknown-client-locale.scm b/tests/unknown-client-locale.scm
deleted file mode 100644
index c2fd4c2..0000000
--- a/tests/unknown-client-locale.scm
+++ /dev/null
@@ -1,45 +0,0 @@
-;; webid-oidc, implementation of the Solid specification
-;; Copyright (C) 2020, 2021  Vivien Kraus
-
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU Affero General Public License as
-;; published by the Free Software Foundation, either version 3 of the
-;; License, or (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU Affero General Public License for more details.
-
-;; You should have received a copy of the GNU Affero General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-(use-modules (webid-oidc authorization-page)
-             (webid-oidc testing)
-             (webid-oidc errors)
-             (web uri)
-             (srfi srfi-19)
-             (web response)
-             (ice-9 optargs)
-             (ice-9 receive))
-
-(with-test-environment
- "unknown-client-locale"
- (lambda ()
-   (let ((problem-acknowledged #f))
-     (receive (response response-body)
-         (with-exception-handler
-             (lambda (error)
-               (unless ((record-predicate &unknown-client-locale) error)
-                 (format (current-error-port) "Huh... ~a\n" (error->str error))
-                 (exit 1))
-               (set! problem-acknowledged #t))
-           (lambda ()
-             (authorization-page "qdfkljsmfklsjmf" #f
-                                 (string->uri "https://example.com")
-                                 (string->uri "https://example.com"))))
-       (unless (eqv? (response-code response) 200)
-         (exit 2))
-       (unless problem-acknowledged
-         (exit 3))
-       (format (current-error-port) "~a" response-body)))))