1 files changed, 68 insertions, 0 deletions
diff --git a/tests/unit/vcomponent/annoying-events.scm b/tests/unit/vcomponent/annoying-events.scm
new file mode 100644
index 00000000..0fa81adb
--- /dev/null
+++ b/tests/unit/vcomponent/annoying-events.scm
@@ -0,0 +1,68 @@
+(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 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 (date year: 2021 month: 11 day: 01))
+
+(define end (date+ start (date day: 8)))
+
+(define ev-set
+  (stream
+    (vevent                              ; should be part of the result
+      summary: "A"
+      dtstart: (date year: 2021 month: 10 day: 01)
+      dtend: (date year: 2021 month: 12 day: 01))
+    (vevent                              ; should NOT be part of the result
+      summary: "B"
+      dtstart: (date year: 2021 month: 10 day: 10)
+      dtend: (date year: 2021 month: 10 day: 11))
+    (vevent                              ; should also be part of the result
+      summary: "C"
+      dtstart: (date year: 2021 month: 11 day: 02)
+      dtend: (date year: 2021 month: 11 day: 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)))))
+
+
+
+'((vcomponent base)
+  (vcomponent datetime))