aboutsummaryrefslogtreecommitdiff
path: root/tests/recurrence-rule.scm
blob: 3ef9e1e3846a71ed1224e3063a2e348b51fd75a7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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