diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/test/annoying-events.scm | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
Diffstat (limited to 'tests/test/annoying-events.scm')
-rw-r--r-- | tests/test/annoying-events.scm | 67 |
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))))) - - |