Switch to a more sensible error reporting system

1 files changed, 8 insertions, 14 deletions

diff --git a/src/scm/webid-oidc/testing.scm b/src/scm/webid-oidc/testing.scm
index f4de433..06d0127 100644
--- a/src/scm/webid-oidc/testing.scm
+++ b/src/scm/webid-oidc/testing.scm
@@ -27,17 +27,11 @@
 ;; This module is used only when running tests.
 
 (define-public (with-test-environment test-name f)
-  (with-exception-handler
-      (lambda (error)
-        (format (current-error-port) "The test failed, because ~a.\n"
-                (error->str error))
-        (raise-exception error))
-    (lambda ()
-      (parameterize ((data-home (format #f "tests/~a.home/disfluid" test-name))
-                     (cache-home (format #f "tests/~a.cache/disfluid" test-name)))
-        (call-with-output-file*
-         (format #f "~a/seed" (cache-home))
-         (lambda (port)
-           (format port "This is the initial seed for the random number generator")))
-        (random-init!)
-        (f)))))
+  (parameterize ((data-home (format #f "tests/~a.home/disfluid" test-name))
+                 (cache-home (format #f "tests/~a.cache/disfluid" test-name)))
+    (call-with-output-file*
+     (format #f "~a/seed" (cache-home))
+     (lambda (port)
+       (format port "This is the initial seed for the random number generator")))
+    (random-init!)
+    (f)))