From 7c81b056a56eb0f142b99423509994fa2ed4cf71 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 8 Mar 2019 10:42:59 +0100 Subject: Got DAILY repeating event! --- test.scm | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 test.scm (limited to 'test.scm') diff --git a/test.scm b/test.scm new file mode 100755 index 00000000..ac0308ad --- /dev/null +++ b/test.scm @@ -0,0 +1,37 @@ +#!/usr/bin/guile -s +!# + +(add-to-load-path (dirname (current-filename))) + +(use-modules (rnrs base) ; assert + (srfi srfi-1) + (srfi srfi-19) + (srfi srfi-41) + (code) + (vcalendar) + (vcalendar recur) + (vcalendar datetime)) + +(define cal (make-vcomponent "testcal/repeating-event.ics")) + +(define ev (find (lambda (ev) (eq? 'VEVENT (type ev))) + (children cal))) + +(define ev-copy (copy-vcomponent ev)) + +(assert (equal? (children ev) + (children ev-copy))) + +(transform-attr! ev "DTSTART" parse-datetime) + + +(stream-for-each + (lambda (ev) + (display (date->string (attr ev "DTSTART") "~1 ~3")) (newline)) + (stream-take 10 (recur-event ev))) + +(define stream-cadr (compose stream-car stream-cdr)) + +(newline) +(display (date->string (attr ev "DTSTART") "~1 ~3")) (newline) +(display (date->string (attr (stream-cadr (recur-event ev)) "DTSTART") "~1 ~3")) (newline) -- cgit v1.2.3