1 files changed, 14 insertions, 0 deletions
diff --git a/tests/recurrence-rule.scm b/tests/recurrence-rule.scm
new file mode 100644
index 00000000..0edfc0a1
--- /dev/null
+++ b/tests/recurrence-rule.scm
@@ -0,0 +1,14 @@
+(((vcomponent recurrence parse) parse-recurrence-rule)
+ ((vcomponent recurrence internal)
+  make-recur-rule weekdays intervals))
+
+
+(test-equal
+    (make-recur-rule (freq 'DAILY) (wkst 'MO) (interval 1))
+  (parse-recurrence-rule "FREQ=DAILY"))
+
+(test-equal
+    (make-recur-rule (freq 'WEEKLY) (wkst 'MO) (interval 1))
+  (parse-recurrence-rule "FREQ=WEEKLY"))
+
+;; TODO more tests