From f7716ac1a87649cad96242f2d5bf0a987d7f430c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 7 Mar 2022 15:31:00 +0100
Subject: Add new tests.

---
 tests/test/rrule-serialization.scm | 75 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 tests/test/rrule-serialization.scm

(limited to 'tests/test/rrule-serialization.scm')

diff --git a/tests/test/rrule-serialization.scm b/tests/test/rrule-serialization.scm
new file mode 100644
index 00000000..e616c5a2
--- /dev/null
+++ b/tests/test/rrule-serialization.scm
@@ -0,0 +1,75 @@
+(define-module (test rrule-serialization)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module ((vcomponent recurrence internal)
+               :select (recur-rule->rrule-string
+                        recur-rule->rrule-sxml
+                        byday))
+  :use-module ((vcomponent recurrence parse)
+               :select (parse-recurrence-rule))
+  :use-module ((ice-9 peg) :select (keyword-flatten)))
+
+(test-equal
+  "Parse of week day"
+  '(#f . 3)
+  ((@@ (vcomponent recurrence parse) parse-day-spec)
+   "WE"))
+
+(test-equal
+  "Parse of week day with positive offset"
+  '(1 . 3)
+  ((@@ (vcomponent recurrence parse) parse-day-spec)
+   "1WE"))
+
+(test-equal
+  "Parse of week day with positive offset (and plus)"
+  '(2 . 3)
+  ((@@ (vcomponent recurrence parse) parse-day-spec)
+   "+2WE"))
+
+(test-equal
+  "Parse of week day with negative offset"
+  '(-3 . 3)
+  ((@@ (vcomponent recurrence parse) parse-day-spec)
+   "-3WE"))
+
+
+;; numeric prefixes in the BYDAY list is only valid when
+;; FREQ={MONTHLY,YEARLY}, but that should be handled in a
+;; later stage since we are just testing the parser here.
+;; (p. 41)
+
+
+(define field->string
+  (@@ (vcomponent recurrence internal)
+      field->string))
+
+(let ((rule (parse-recurrence-rule "BYDAY=MO,TU,WE")))
+  (test-equal
+    "Direct return of parsed value"
+    "MO,TU,WE"
+    (field->string 'byday (byday rule)))
+  (test-equal
+    "Direct return, but as SXML"
+    '((byday "MO") (byday "TU") (byday "WE"))
+    (filter
+      (lambda (pair) (eq? 'byday (car pair)))
+      (keyword-flatten
+        '(interval byday wkst)
+        (recur-rule->rrule-sxml rule)))))
+
+(let ((rule (parse-recurrence-rule "BYDAY=+1MO,1TU,-2FR")))
+  (test-equal
+    "Direct return of parsed value"
+    "1MO,1TU,-2FR"
+    (field->string 'byday (byday rule)))
+  (test-equal
+    "Direct return, but as SXML"
+    '((byday "1MO") (byday "1TU") (byday "-2FR"))
+    (filter
+      (lambda (pair) (eq? 'byday (car pair)))
+      (keyword-flatten
+        '(interval byday wkst)
+        (recur-rule->rrule-sxml rule)))))
+
+
-- 
cgit v1.2.3