Rewrite test running system.

1 files changed, 44 insertions, 0 deletions

diff --git a/tests/unit/vcomponent/vcomponent-datetime.scm b/tests/unit/vcomponent/vcomponent-datetime.scm
new file mode 100644
index 00000000..80fee259
--- /dev/null
+++ b/tests/unit/vcomponent/vcomponent-datetime.scm
@@ -0,0 +1,44 @@
+;;; 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: (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)))
+
+
+;; |-----------------| test interval
+;;                 |----------| event interval
+
+(test-equal
+  "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
+    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")))
+
+(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)
+    ev))
+
+
+'((vcomponent datetime))