From 2de493b798997027758fb3540c796a3f06f9ade1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Feb 2023 03:00:20 +0100
Subject: Start using (vcomponent create) in tests.

This allows us to focus on what we are testing, instead of on the parser
in question. It also makes the code parser-agnostic.
---
 tests/test/vcomponent-datetime.scm | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

(limited to 'tests/test/vcomponent-datetime.scm')

diff --git a/tests/test/vcomponent-datetime.scm b/tests/test/vcomponent-datetime.scm
index 073a70ae..49d1711f 100644
--- a/tests/test/vcomponent-datetime.scm
+++ b/tests/test/vcomponent-datetime.scm
@@ -8,15 +8,12 @@
   :use-module (srfi srfi-88)
   :use-module ((datetime) :select (date time datetime))
   :use-module ((vcomponent datetime) :select (event-length/clamped))
-  :use-module ((vcomponent formats ical parse) :select (parse-calendar)))
+  :use-module ((vcomponent create) :select (vevent)))
 
 (define ev
-  (call-with-input-string
-    "BEGIN:VEVENT
-DTSTART:20200329T170000
-DTEND:20200401T100000
-END:VEVENT"
-    parse-calendar))
+  (vevent
+   dtstart: #2020-03-29T17:00:00
+   dtend: #2020-04-01T10:00:00))
 
 
 ;; |-----------------| test interval
@@ -31,12 +28,9 @@ END:VEVENT"
     ev))
 
 (define utc-ev
-  (call-with-input-string
-    "BEGIN:VEVENT
-DTSTART:20200329T150000Z
-DTEND:20200401T080000Z
-END:VEVENT"
-    parse-calendar))
+  (vevent
+   dtstart: #2020-03-29T15:00:00Z
+   dtend: #2020-04-01T08:00:00Z))
 
 (test-equal
   "Correct clamping UTC"
-- 
cgit v1.2.3