diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 22:55:14 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 22:55:35 +0100 |
| commit | 57e4004ec1a0489e6d8bc7dbd4bd07b110b6239b (patch) | |
| tree | 119fc86cce7dddc174d71bbc125d9cc4ac0ed40e /tests/test/recurrence-simple.scm | |
| parent | Handle broken symlink when generating static HTML. (diff) | |
| download | calp-57e4004ec1a0489e6d8bc7dbd4bd07b110b6239b.tar.gz calp-57e4004ec1a0489e6d8bc7dbd4bd07b110b6239b.tar.xz | |
Replace Guile's srfi-64:s test-error with working version.
Along with updating now failing tests.
Diffstat (limited to 'tests/test/recurrence-simple.scm')
| -rw-r--r-- | tests/test/recurrence-simple.scm | 3 |
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")) |