diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test/base64.scm | 2 | ||||
| -rw-r--r-- | tests/test/recurrence-simple.scm | 2 | ||||
| -rw-r--r-- | tests/test/util.scm | 2 |
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 () |