From 1da5a277188a954d881316cb605962ee66053285 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 17 Mar 2022 22:14:18 +0100
Subject: Normalize errors.

---
 tests/test/base64.scm            | 2 +-
 tests/test/recurrence-simple.scm | 2 +-
 tests/test/util.scm              | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'tests/test')

diff --git a/tests/test/base64.scm b/tests/test/base64.scm
index 64abd2c3..788e7093 100644
--- a/tests/test/base64.scm
+++ b/tests/test/base64.scm
@@ -31,7 +31,7 @@
 ;; TODO normalize base64 errors
 
 (test-error "Invalid base64"
-  'misc-error
+  'decoding-error
   (base64decode "@@@@"))
 
 (test-error "To short base64"
diff --git a/tests/test/recurrence-simple.scm b/tests/test/recurrence-simple.scm
index 6ded68ba..3ddcb5ad 100644
--- a/tests/test/recurrence-simple.scm
+++ b/tests/test/recurrence-simple.scm
@@ -42,7 +42,7 @@
     'warning
     (parse-recurrence-rule "FREQ=HOURLY;COUNT=-1"))
   (test-error "Invalid COUNT"
-    'wrong-type-argument
+    'wrong-type-arg
     (parse-recurrence-rule "FREQ=HOURLY;COUNT=err")))
 
 ;;; Test that basic recurrence works
diff --git a/tests/test/util.scm b/tests/test/util.scm
index a7f0cd00..325ca992 100644
--- a/tests/test/util.scm
+++ b/tests/test/util.scm
@@ -61,7 +61,7 @@
       "Other members left 2"
       (member "Test" rest))))
 
-(test-error 'misc-error (find-extreme '()))
+(test-error 'wrong-type-arg (find-extreme '()))
 
 (call-with-values
   (lambda ()
-- 
cgit v1.2.3