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/unit/vcomponent/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 '')
-rw-r--r-- | tests/unit/vcomponent/annoying-events.scm (renamed from tests/test/annoying-events.scm) | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/tests/test/annoying-events.scm b/tests/unit/vcomponent/annoying-events.scm index a6f5e946..0fa81adb 100644 --- a/tests/test/annoying-events.scm +++ b/tests/unit/vcomponent/annoying-events.scm @@ -8,8 +8,6 @@ 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!)) @@ -17,7 +15,7 @@ :use-module (vcomponent base)) -(define start #2021-11-01) +(define start (date year: 2021 month: 11 day: 01)) (define end (date+ start (date day: 8))) @@ -25,16 +23,16 @@ (stream (vevent ; should be part of the result summary: "A" - dtstart: #2021-10-01 - dtend: #2021-12-01) + 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: #2021-10-10 - dtend: #2021-10-11) + 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: #2021-11-02 - dtend: #2021-11-03))) + 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)) @@ -65,3 +63,6 @@ ev-set))))) + +'((vcomponent base) + (vcomponent datetime)) |