From 43ee98219ce9b077109512785de629d416e8bd6f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 Mar 2019 00:21:28 +0100 Subject: Set up better test for recurring events. --- module/test.scm | 77 --------------------------------------------------------- 1 file changed, 77 deletions(-) delete mode 100755 module/test.scm (limited to 'module/test.scm') diff --git a/module/test.scm b/module/test.scm deleted file mode 100755 index 10c6c1a1..00000000 --- a/module/test.scm +++ /dev/null @@ -1,77 +0,0 @@ -#!/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) - )) - -- cgit v1.2.3