Made DTSTART have <time> instead of <date> type.

1 files changed, 7 insertions, 8 deletions

diff --git a/test.scm b/test.scm
index ac0308ad..536944b2 100755
--- a/test.scm
+++ b/test.scm
@@ -6,11 +6,11 @@
 (use-modules (rnrs base)                ; assert
              (srfi srfi-1)
              (srfi srfi-19)
+             (srfi srfi-19 util)
              (srfi srfi-41)
              (code)
              (vcalendar)
-             (vcalendar recur)
-             (vcalendar datetime))
+             (vcalendar recur))
 
 (define cal (make-vcomponent "testcal/repeating-event.ics"))
 
@@ -22,16 +22,15 @@
 (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))
+   (format #t "~a -- ~a~%"
+           (time->string (attr ev "DTSTART") "~1 ~3")
+           (time->string (attr ev "DTEND") "~1 ~3")))
  (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)
+(display (time->string (attr ev "DTSTART") "~1 ~3")) (newline)
+(display (time->string (attr (stream-cadr (recur-event ev)) "DTSTART") "~1 ~3")) (newline)