diff options
Diffstat (limited to 'tests/test/vcomponent-datetime.scm')
-rw-r--r-- | tests/test/vcomponent-datetime.scm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/test/vcomponent-datetime.scm b/tests/test/vcomponent-datetime.scm deleted file mode 100644 index 49d1711f..00000000 --- a/tests/test/vcomponent-datetime.scm +++ /dev/null @@ -1,43 +0,0 @@ -;;; Commentary: -;; Tests that event-clamping (checking how long part of an event -;; overlaps another time span) works. -;;; Code: - -(define-module (test vcomponent-datetime) - :use-module (srfi srfi-64) - :use-module (srfi srfi-88) - :use-module ((datetime) :select (date time datetime)) - :use-module ((vcomponent datetime) :select (event-length/clamped)) - :use-module ((vcomponent create) :select (vevent))) - -(define ev - (vevent - dtstart: #2020-03-29T17:00:00 - dtend: #2020-04-01T10:00:00)) - - -;; |-----------------| test interval -;; |----------| event interval - -(test-equal - "Correct clamping" - (datetime time: (time hour: 7)) ; 2020-03-29T17:00 - 2020-03-30T00:00 - (event-length/clamped - #2020-03-23 ; a time way before the start of the event - #2020-03-29 ; a time slightly after the end of the event - ev)) - -(define utc-ev - (vevent - dtstart: #2020-03-29T15:00:00Z - dtend: #2020-04-01T08:00:00Z)) - -(test-equal - "Correct clamping UTC" - (datetime time: (time hour: 7)) - (event-length/clamped - #2020-03-23 - #2020-03-29 - ev)) - - |