diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:07:22 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:07:22 +0100 |
commit | a1ae616a1177fa50b6c5bb86a341081a3b06e710 (patch) | |
tree | af6397154c3511a8488ff0e7701841de4a93491e /tests/rrule-parse.scm | |
parent | Fix broken test. (diff) | |
download | calp-a1ae616a1177fa50b6c5bb86a341081a3b06e710.tar.gz calp-a1ae616a1177fa50b6c5bb86a341081a3b06e710.tar.xz |
Merge several recurrence test files.
Diffstat (limited to 'tests/rrule-parse.scm')
-rw-r--r-- | tests/rrule-parse.scm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/tests/rrule-parse.scm b/tests/rrule-parse.scm deleted file mode 100644 index e2990cbc..00000000 --- a/tests/rrule-parse.scm +++ /dev/null @@ -1,29 +0,0 @@ -;;; Commentary: -;; Basic tests that recurrence rule parsing works. -;; Including that it fails on invalid output. -;;; Code: - -(((vcomponent recurrence parse) - parse-recurrence-rule) - ((vcomponent recurrence) make-recur-rule) - ((datetime) mon) - ((calp util exceptions) warnings-are-errors warning-handler) - ) - -(test-equal (make-recur-rule freq: 'HOURLY wkst: mon interval: 1) - (parse-recurrence-rule "FREQ=HOURLY")) - -(test-equal (make-recur-rule freq: 'HOURLY count: 3 interval: 1 wkst: mon) - (parse-recurrence-rule "FREQ=HOURLY;COUNT=3")) - -(parameterize ((warnings-are-errors #t) - (warning-handler identity)) ; silence warnings - (test-error "Invalid FREQ" 'warning - (parse-recurrence-rule "FREQ=ERR;COUNT=3")) - - (test-error "Negative COUNT" 'warning - (parse-recurrence-rule "FREQ=HOURLY;COUNT=-1")) - - (test-error "Invalid COUNT" - 'wrong-type-argument - (parse-recurrence-rule "FREQ=HOURLY;COUNT=err")) ) |