1 files changed, 77 insertions, 0 deletions
diff --git a/module/test.scm b/module/test.scm
new file mode 100755
index 00000000..10c6c1a1
--- /dev/null
+++ b/module/test.scm
@@ -0,0 +1,77 @@
+#!/usr/bin/guile -s
+!#
+
+(add-to-load-path (dirname (current-filename)))
+
+(use-modules (rnrs base)                ; assert
+             (srfi srfi-1)
+             (srfi srfi-19)
+             (srfi srfi-19 util)
+             (srfi srfi-41)
+             (vcalendar)
+             (vcalendar output)
+             (vcalendar recur))
+
+(define cal (make-vcomponent "../testcal/repeating-event.ics"))
+
+(define ev (car (children cal 'VEVENT)))
+
+(define ev-copy (copy-vcomponent ev))
+
+(assert (equal? (children ev)
+                (children ev-copy)))
+
+(define (display-timespan ev)
+  (format #t "~a ~a ~a -- ~a~%"
+          (attr ev 'NEW_ATTR)
+          (attr ev 'N)
+          (time->string (attr ev "DTSTART"))
+          (time->string (attr ev "DTEND"))))
+
+(display (attr ev 'N)) (newline)
+(display-timespan ev)
+(display (attr ev 'NEW_ATTR)) (newline)
+(newline)
+(define strm (generate-recurrence-set ev))
+(display (attr ev 'RRULE)) (newline)
+
+(if #f
+    (begin
+      (stream-for-each display-timespan (stream-take 20 strm))
+
+      (newline)
+
+      ;; (define strm (generate-recurrence-set ev))
+      (display (attr ev 'RRULE)) (newline)
+
+      ;; This makes the amount of events lookad at before have the same DTSTART,
+      ;; which is the last from that set. The one's after that however are fine.
+      (stream-for-each display-timespan (stream-take 40 strm))
+      (newline)
+      ;; This makes all the DTSTART be the last dtstart
+      ;; (for-each display-timespan (stream->list (stream-take 20 strm)))
+
+;;; I believe that I might have something to do with the stream's cache.
+
+      (newline)
+
+      (display-timespan ev)
+      (display (attr ev 'NEW_ATTR))
+      (newline))
+    (begin
+      ;; These two acts as one large unit.
+      ;; Something modifies the initial ev even though it shouldn't
+      (display-timespan ev)
+      (stream-for-each
+       display-timespan
+       (stream-take 20 (generate-recurrence-set (copy-vcomponent ev))))
+      (newline)
+      (display-timespan ev)
+      (newline)
+      (stream-for-each
+       display-timespan
+       (stream-take 40 (generate-recurrence-set (copy-vcomponent ev))))
+      (newline)
+      (display-timespan ev)
+      ))
+