diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 03:00:20 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 04:04:04 +0100 |
| commit | 2de493b798997027758fb3540c796a3f06f9ade1 (patch) | |
| tree | 98a2fe150732a34554454c0cf873ece1481f0abb /tests/test/vcomponent-datetime.scm | |
| parent | Change group-by to return direct pairs. (diff) | |
| download | calp-2de493b798997027758fb3540c796a3f06f9ade1.tar.gz calp-2de493b798997027758fb3540c796a3f06f9ade1.tar.xz | |
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.
Diffstat (limited to '')
| -rw-r--r-- | tests/test/vcomponent-datetime.scm | 20 |
1 files changed, 7 insertions, 13 deletions
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" |