diff options
Diffstat (limited to 'tests/unit/vcomponent/rrule-serialization.scm')
-rw-r--r-- | tests/unit/vcomponent/rrule-serialization.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/unit/vcomponent/rrule-serialization.scm b/tests/unit/vcomponent/rrule-serialization.scm index 540c5bd2..fe990e0b 100644 --- a/tests/unit/vcomponent/rrule-serialization.scm +++ b/tests/unit/vcomponent/rrule-serialization.scm @@ -44,7 +44,7 @@ (@@ (vcomponent recurrence internal) field->string)) -(let ((rule (parse-recurrence-rule "BYDAY=MO,TU,WE"))) +(let ((rule (parse-recurrence-rule "FREQ=WEEKLY;BYDAY=MO,TU,WE"))) (test-equal "Direct return of parsed value" "MO,TU,WE" @@ -55,10 +55,10 @@ (filter (lambda (pair) (eq? 'byday (car pair))) (keyword-flatten - '(interval byday wkst) + '(interval byday wkst freq) (recur-rule->rrule-sxml rule))))) -(let ((rule (parse-recurrence-rule "BYDAY=+1MO,1TU,-2FR"))) +(let ((rule (parse-recurrence-rule "FREQ=WEEKLY;BYDAY=+1MO,1TU,-2FR"))) (test-equal "Direct return of parsed value" "1MO,1TU,-2FR" @@ -68,8 +68,9 @@ '((byday "1MO") (byday "1TU") (byday "-2FR")) (filter (lambda (pair) (eq? 'byday (car pair))) + ;; TODO why is keyword-flatten used here? (keyword-flatten - '(interval byday wkst) + '(interval byday wkst freq) (recur-rule->rrule-sxml rule))))) |