From e7c471cb50bf92debc6e28ef5e45d0c5e4b3da3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 8 Mar 2019 13:14:34 +0100
Subject: Made DTSTART have <time> instead of <date> type.

---
 test.scm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'test.scm')

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)
-- 
cgit v1.2.3