diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 02:24:06 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 02:24:06 +0200 |
| commit | 873ab8f27006b17c79e1ef98333c14eb62058c9e (patch) | |
| tree | b55858de1a273e42649a0f971e117c519e305b45 | |
| parent | Move date-range to datetime/util. (diff) | |
| download | calp-873ab8f27006b17c79e1ef98333c14eb62058c9e.tar.gz calp-873ab8f27006b17c79e1ef98333c14eb62058c9e.tar.xz | |
Fix errors in tests.
| -rw-r--r-- | tests/recurrence-rule.scm | 7 | ||||
| -rw-r--r-- | tests/rrule-parse.scm | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/tests/recurrence-rule.scm b/tests/recurrence-rule.scm index 3ef9e1e3..303b4547 100644 --- a/tests/recurrence-rule.scm +++ b/tests/recurrence-rule.scm @@ -1,14 +1,15 @@ (((vcomponent recurrence parse) parse-recurrence-rule) ((vcomponent recurrence internal) - make-recur-rule weekdays intervals)) + make-recur-rule weekdays intervals) + ((datetime util) mon)) (test-equal - (make-recur-rule freq: 'DAILY wkst: 'MO interval: 1) + (make-recur-rule freq: 'DAILY wkst: mon interval: 1) (parse-recurrence-rule "FREQ=DAILY")) (test-equal - (make-recur-rule freq: 'WEEKLY wkst: 'MO interval: 1) + (make-recur-rule freq: 'WEEKLY wkst: mon interval: 1) (parse-recurrence-rule "FREQ=WEEKLY")) ;; TODO more tests diff --git a/tests/rrule-parse.scm b/tests/rrule-parse.scm index 84e7b6ce..3ecfc693 100644 --- a/tests/rrule-parse.scm +++ b/tests/rrule-parse.scm @@ -1,11 +1,12 @@ (((vcomponent recurrence parse) parse-recurrence-rule) - ((vcomponent recurrence) make-recur-rule)) + ((vcomponent recurrence) make-recur-rule) + ((datetime util) mon)) -(test-equal (make-recur-rule freq: 'HOURLY wkst: 'MO interval: 1) +(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: 'MO) +(test-equal (make-recur-rule freq: 'HOURLY count: 3 interval: 1 wkst: mon) (parse-recurrence-rule "FREQ=HOURLY;COUNT=3")) ;;; TODO write tests for these cases |