diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
commit | b6d12e309b207c25de7873f658aa0f88ea77080c (patch) | |
tree | ea4a8515c4c5b3e6798f6b3b69e24ad76f53b883 /tests/rrule-parse.scm | |
parent | Fix keyword argument. (diff) | |
download | calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.gz calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.xz |
Reworked tests.
Diffstat (limited to 'tests/rrule-parse.scm')
-rw-r--r-- | tests/rrule-parse.scm | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/tests/rrule-parse.scm b/tests/rrule-parse.scm index 7612afc8..d7733310 100644 --- a/tests/rrule-parse.scm +++ b/tests/rrule-parse.scm @@ -1,16 +1,11 @@ -(use-modules (vcomponent recurrence parse)) +(((vcomponent recurrence parse) + parse-recurrence-rule) + ((vcomponent recurrence) make-recur-rule)) -(define-syntax mkrule - (syntax-rules () - ((_ (key val) ...) - ((record-constructor (@@ (vcomponent recurrence internal) <recur-rule>) - (quote (key ...))) - (quote val) ...)))) - -(test-equal (mkrule (freq HOURLY) (wkst MO) (interval 1)) +(test-equal (make-recur-rule (freq 'HOURLY) (wkst 'MO) (interval 1)) (parse-recurrence-rule "FREQ=HOURLY")) -(test-equal (mkrule (freq HOURLY) (count 3) (interval 1) (wkst MO)) +(test-equal (make-recur-rule (freq 'HOURLY) (count 3) (interval 1) (wkst 'MO)) (parse-recurrence-rule "FREQ=HOURLY;COUNT=3")) ;;; TODO write tests for these cases @@ -20,7 +15,7 @@ ;; => #<<recur-rule> freq: #<<recur-rule> freq: #f until: #f count: #f interval: 1 bysecond: #f byminute: #f byhour: #f byday: #f bymonthday: #f byyearday: #f byweekno: #f bymonth: #f bysetpos: #f wkst: MO> until: #f count: 3 interval: 1 bysecond: #f byminute: #f byhour: #f byday: #f bymonthday: #f byyearday: #f byweekno: #f bymonth: #f bysetpos: #f wkst: MO> ;; ERR unfulfilled-constraint [ERR] doesn't fulfill constraint of type [FREQ], ignoring -(parse-recurrence-rule "FREQ=HOURLY;COUNT=err") +(test-error 'wrong-type-argument (parse-recurrence-rule "FREQ=HOURLY;COUNT=err")) ;; => #<<recur-rule> freq: HOURLY until: #f count: #f interval: 1 ;; bysecond: #f byminute: #f byhour: #f byday: #f bymonthday: #f ;; byyearday: #f byweekno: #f bymonth: #f bysetpos: #f wkst: MO> |