From ad99ea49de2bda94f1f6af1c14b61401c1696f9d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 27 Oct 2023 21:29:47 +0200 Subject: Tests. --- tests/unit/vcomponent/vcomponent-datetime.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'tests/unit/vcomponent/vcomponent-datetime.scm') diff --git a/tests/unit/vcomponent/vcomponent-datetime.scm b/tests/unit/vcomponent/vcomponent-datetime.scm index 80fee259..18616bb4 100644 --- a/tests/unit/vcomponent/vcomponent-datetime.scm +++ b/tests/unit/vcomponent/vcomponent-datetime.scm @@ -12,8 +12,8 @@ (define ev (vevent - dtstart: (datetime year: 2020 month: 03 day: 29 hour: 17 minute: 00 second: 00) - dtend: (datetime year: 2020 month: 04 day: 01 hour: 10 minute: 00 second: 00))) + dtstart: (datetime year: 2020 month: 3 day: 29 hour: 17) + dtend: (datetime year: 2020 month: 4 day: 1 hour: 10))) ;; |-----------------| test interval @@ -23,21 +23,21 @@ "Correct clamping" (datetime time: (time hour: 7)) ; 2020-03-29T17:00 - 2020-03-30T00:00 (event-length/clamped - (date year: 2020 month: 03 day: 23) ; a time way before the start of the event - (date year: 2020 month: 03 day: 29) ; a time slightly after the end of the event + (date year: 2020 month: 3 day: 23) ; a time way before the start of the event + (date year: 2020 month: 3 day: 29) ; a time slightly after the end of the event ev)) (define utc-ev (vevent - dtstart: (datetime year: 2020 month: 03 day: 29 hour: 15 minute: 00 second: 00 tz: "UTC") - dtend: (datetime year: 2020 month: 04 day: 01 hour: 08 minute: 00 second: 00 tz: "UTC"))) + dtstart: (datetime year: 2020 month: 3 day: 29 hour: 15 tz: "UTC") + dtend: (datetime year: 2020 month: 4 day: 1 hour: 8 tz: "UTC"))) (test-equal "Correct clamping UTC" (datetime time: (time hour: 7)) (event-length/clamped - (date year: 2020 month: 03 day: 23) - (date year: 2020 month: 03 day: 29) + (date year: 2020 month: 3 day: 23) + (date year: 2020 month: 3 day: 29) ev)) -- cgit v1.2.3