diff options
Diffstat (limited to '')
-rwxr-xr-x | test.scm | 37 |
1 files changed, 37 insertions, 0 deletions
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) |