aboutsummaryrefslogtreecommitdiff
path: root/tests/test/recurrence-simple.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/recurrence-simple.scm')
-rw-r--r--tests/test/recurrence-simple.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/test/recurrence-simple.scm b/tests/test/recurrence-simple.scm
index 0f421b05..6ded68ba 100644
--- a/tests/test/recurrence-simple.scm
+++ b/tests/test/recurrence-simple.scm
@@ -6,6 +6,7 @@
(define-module (test recurrence-simple)
:use-module (srfi srfi-64)
+ :use-module (srfi srfi-64 test-error)
:use-module (srfi srfi-88)
:use-module ((srfi srfi-41)
:select (stream-take stream-map stream->list stream-car))
@@ -33,7 +34,7 @@
;;; Test that recurrence rule parsing fails where appropriate
(parameterize ((warnings-are-errors #t)
- (warning-handler identity))
+ (warning-handler (lambda _ "")))
(test-error "Invalid FREQ"
'warning
(parse-recurrence-rule "FREQ=ERR;COUNT=3"))