aboutsummaryrefslogtreecommitdiff
path: root/tests/test
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-03-17 22:14:18 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2022-03-28 14:17:01 +0200
commit1da5a277188a954d881316cb605962ee66053285 (patch)
tree4f77be46498f321d08bfaa072636e4fd252b4f9d /tests/test
parentUnsmarted define-config% (diff)
downloadcalp-1da5a277188a954d881316cb605962ee66053285.tar.gz
calp-1da5a277188a954d881316cb605962ee66053285.tar.xz
Normalize errors.
Diffstat (limited to 'tests/test')
-rw-r--r--tests/test/base64.scm2
-rw-r--r--tests/test/recurrence-simple.scm2
-rw-r--r--tests/test/util.scm2
3 files changed, 3 insertions, 3 deletions
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 ()