diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-13 04:11:15 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-13 11:53:21 +0200 |
| commit | ee12b9a00e86b0af168d82c436afd8683dc6649b (patch) | |
| tree | ef9ca468954ffee37b973eb6e765299246839e7e /tests/test | |
| parent | Remove custom let*. (diff) | |
| download | calp-ee12b9a00e86b0af168d82c436afd8683dc6649b.tar.gz calp-ee12b9a00e86b0af168d82c436afd8683dc6649b.tar.xz | |
Cleanup of zic.
Diffstat (limited to 'tests/test')
| -rw-r--r-- | tests/test/zic.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test/zic.scm b/tests/test/zic.scm index 2a4e30ce..99247cf1 100644 --- a/tests/test/zic.scm +++ b/tests/test/zic.scm @@ -294,8 +294,8 @@ Zone America/Menominee -5:00 - EST 1973 Apr 29 2:00 ""))) (test-equal "Crash on counting backwards from date" - '(warning "Counting backward for RRULES unsupported" ()) - (catch 'warning + '(misc-error "rule->rrule" "Counting backward for RRULES unsupported" #f #f) + (catch 'misc-error (lambda () (rule->rrule ((@@ (datetime zic) make-rule) 'EU 1996 'maximum 10 `(< ,mon 2) |