1 files changed, 0 insertions, 67 deletions
diff --git a/tests/test/annoying-events.scm b/tests/test/annoying-events.scm
deleted file mode 100644
index a6f5e946..00000000
--- a/tests/test/annoying-events.scm
+++ /dev/null
@@ -1,67 +0,0 @@
-(define-module (test annoying-events)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-88)
-  :use-module ((srfi srfi-41 util)
-   :select (filter-sorted-stream))
-  :use-module ((srfi srfi-41)
-   :select (stream
-             stream->list
-             stream-filter
-             stream-take-while))
-  :use-module ((vcomponent base)
-   :select (extract prop))
-  :use-module ((vcomponent datetime) :select (event-overlaps?))
-  :use-module ((datetime) :select (date date+ date<))
-  :use-module ((hnh util) :select (set!))
-  :use-module (vcomponent create)
-  :use-module (vcomponent base))
-
-
-(define start #2021-11-01)
-
-(define end (date+ start (date day: 8)))
-
-(define ev-set
-  (stream
-    (vevent                              ; should be part of the result
-      summary: "A"
-      dtstart: #2021-10-01
-      dtend: #2021-12-01)
-    (vevent                              ; should NOT be part of the result
-      summary: "B"
-      dtstart: #2021-10-10
-      dtend: #2021-10-11)
-    (vevent                              ; should also be part of the result
-      summary: "C"
-      dtstart: #2021-11-02
-      dtend: #2021-11-03)))
-
-;; (if (and (date< (prop ev 'DTSTART) start-date)
-;;          (date<= (prop ev 'DTEND) end-date))
-;;     ;; event will be picked, but next event might have
-;;     (and (date< start-date (prop ev 'DTSTART))
-;;          (date< end-date (prop ev 'DTEND)))
-;;     ;; meaning that it wont be added, stopping filter-sorted-stream
-;;     )
-
-;; The naïve way to get all events in an interval. Misses C due to B being "in the way"
-
-(test-equal "incorrect handling of non-contigious"
-  '("A" #; "C")
-  (map (extract 'SUMMARY)
-       (stream->list
-         (filter-sorted-stream
-           (lambda (ev) (event-overlaps? ev start (date+ start (date day: 8))))
-           ev-set))))
-
-(test-equal "correct handling of non-contigious"
-  '("A" "C")
-  (map (extract 'SUMMARY)
-       (stream->list
-         (stream-filter
-           (lambda (ev) (event-overlaps? ev start end))
-           (stream-take-while
-             (lambda (ev) (date< (prop ev 'DTSTART) end))
-             ev-set)))))
-
-