From 22f28015981295660ff98b43789f8c4c99134f36 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 16 Oct 2023 19:39:12 +0200 Subject: Move timespec and recur-rule to new object system. --- tests/unit/vcomponent/rrule-serialization.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'tests/unit/vcomponent/rrule-serialization.scm') 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))))) -- cgit v1.2.3