(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))