diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
| commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
| tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /tests/recurrence-rule.scm | |
| parent | Update recurrence generate to new date obj. (diff) | |
| download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz | |
Once again compiles.
Diffstat (limited to 'tests/recurrence-rule.scm')
| -rw-r--r-- | tests/recurrence-rule.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/recurrence-rule.scm b/tests/recurrence-rule.scm new file mode 100644 index 00000000..0edfc0a1 --- /dev/null +++ b/tests/recurrence-rule.scm @@ -0,0 +1,14 @@ +(((vcomponent recurrence parse) parse-recurrence-rule) + ((vcomponent recurrence internal) + make-recur-rule weekdays intervals)) + + +(test-equal + (make-recur-rule (freq 'DAILY) (wkst 'MO) (interval 1)) + (parse-recurrence-rule "FREQ=DAILY")) + +(test-equal + (make-recur-rule (freq 'WEEKLY) (wkst 'MO) (interval 1)) + (parse-recurrence-rule "FREQ=WEEKLY")) + +;; TODO more tests |