1 files changed, 56 insertions, 0 deletions
diff --git a/tests/unit/vcomponent/vcomponent-equal.scm b/tests/unit/vcomponent/vcomponent-equal.scm
new file mode 100644
index 00000000..5bae30c2
--- /dev/null
+++ b/tests/unit/vcomponent/vcomponent-equal.scm
@@ -0,0 +1,56 @@
+(define-module (test vcomponent-equal)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module (datetime)
+  :use-module (datetime timespec)
+  :use-module (vcomponent create)
+  :use-module (vcomponent recurrence)
+  :use-module ((vcomponent) :select (vcomponent-equal?))
+  )
+
+;;; Things of note:
+;;; - the childrens are in different order
+;;; - All properties are in a random order
+;;; TODO Add parameters
+(test-assert "vcomponent equal?"
+    (vcomponent-equal?
+     (vtimezone tzid: "Europe/Zurich"
+                (list
+                 (daylight
+                  tzoffsetfrom: (make-timespec (time hour: 0) '+ #\w)
+                  tzoffsetto: (make-timespec (time hour: 2) '+ #\w)
+                  tzname: "CEST"
+                  dtstart: (datetime year: 1981 month: 3 day: 29 hour: 1 tz: "UTC")
+                  uid: "d19c9347-9a85-4432-a876-5fb9c0d24d2b"
+                  rrule: (recur-rule freq: 'YEARLY interval: 1 byday: `((-1 . ,sun))
+                                     bymonth: '(3) wkst: monday))
+                 (standard
+                  tzoffsetfrom: (make-timespec (time hour: 2) '+ #\w)
+                  uid: "7dce30d4-6aaa-4cfb-85dc-813f74d7f4a9"
+                  dtstart: (datetime year: 1996 month: 10 day: 27 hour: 1 tz: "UTC")
+                  rrule: (recur-rule freq: 'YEARLY interval: 1 byday: `((-1 . ,sun))
+                                     bymonth: '(10) wkst: monday)
+                  tzoffsetto: (make-timespec (time hour: 1) '+ #\w)
+                  tzname: "CET")))
+
+     (vtimezone tzid: "Europe/Zurich"
+                (list
+                 (standard
+                  dtstart: (datetime year: 1996 month: 10 day: 27 hour: 1 tz: "UTC")
+                  rrule: (recur-rule freq: 'YEARLY interval: 1 byday: `((-1 . ,sun))
+                                     bymonth: '(10) wkst: monday)
+                  tzname: "CET"
+                  tzoffsetfrom: (make-timespec (time hour: 2) '+ #\w)
+                  tzoffsetto: (make-timespec (time hour: 1) '+ #\w)
+                  uid: "7dce30d4-6aaa-4cfb-85dc-813f74d7f4a9")
+                 (daylight
+                  dtstart: (datetime year: 1981 month: 3 day: 29 hour: 1 tz: "UTC")
+                  rrule: (recur-rule freq: 'YEARLY interval: 1 byday: `((-1 . ,sun))
+                                     bymonth: '(3) wkst: monday)
+                  tzname: "CEST"
+                  tzoffsetfrom: (make-timespec (time hour: 0) '+ #\w)
+                  tzoffsetto: (make-timespec (time hour: 2) '+ #\w)
+                  uid: "d19c9347-9a85-4432-a876-5fb9c0d24d2b")))))
+
+
+'((vcomponent base))