diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 19:39:12 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 19:40:24 +0200 |
| commit | 22f28015981295660ff98b43789f8c4c99134f36 (patch) | |
| tree | e6d43c74a23843212e0fc183a1e09ca2b5d2fa17 /tests/unit/vcomponent/rrule-serialization.scm | |
| parent | Add `not` case to type validators. (diff) | |
| download | calp-22f28015981295660ff98b43789f8c4c99134f36.tar.gz calp-22f28015981295660ff98b43789f8c4c99134f36.tar.xz | |
Move timespec and recur-rule to new object system.
Diffstat (limited to '')
| -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))))) |