From f7716ac1a87649cad96242f2d5bf0a987d7f430c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 7 Mar 2022 15:31:00 +0100
Subject: Add new tests.

---
 tests/vcomponent-datetime.scm | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 tests/vcomponent-datetime.scm

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

diff --git a/tests/vcomponent-datetime.scm b/tests/vcomponent-datetime.scm
deleted file mode 100644
index 0f410979..00000000
--- a/tests/vcomponent-datetime.scm
+++ /dev/null
@@ -1,40 +0,0 @@
-;;; Commentary:
-;; Tests that event-clamping (checking how long part of an event
-;; overlaps another time span) works.
-;;; Code:
-
-(((datetime)
-  date time
-  datetime)
- ((vcomponent datetime)
-  event-length/clamped)
- ((vcomponent formats ical parse) parse-calendar)
- )
-
-(define ev (call-with-input-string
-               "BEGIN:VEVENT
-DTSTART:20200329T170000
-DTEND:20200401T100000
-END:VEVENT"
-               parse-calendar))
-
-;; |-----------------| 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 (call-with-input-string
-               "BEGIN:VEVENT
-DTSTART:20200329T150000Z
-DTEND:20200401T080000Z
-END:VEVENT"
-               parse-calendar))
-
-(test-equal "Correct clamping UTC"
-  (datetime time: (time hour: 7))
-  (event-length/clamped #2020-03-23 #2020-03-29 ev))
-- 
cgit v1.2.3