diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-04 01:58:26 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-12-09 00:54:20 +0100 |
commit | ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7 (patch) | |
tree | 7176aa23610558fde1c020ae0b096d2f43bc9dc7 /tests/unit/vcomponent | |
parent | Cleanup datetime tests. (diff) | |
download | calp-ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7.tar.gz calp-ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7.tar.xz |
Complete rewrite of the lens system.
The old "lens" system was more of nested accessors. This rewrites them
to be much better, at the cost of some extra up-front complexity.
Beside the change in lenses, and all required adjustments, also adds
lens creation to the define-type macro.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/vcomponent/vcomponent-datetime.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/unit/vcomponent/vcomponent-datetime.scm b/tests/unit/vcomponent/vcomponent-datetime.scm index de21281c..c997faba 100644 --- a/tests/unit/vcomponent/vcomponent-datetime.scm +++ b/tests/unit/vcomponent/vcomponent-datetime.scm @@ -70,7 +70,7 @@ (ev (vevent dtstart: dt dtend: (datetime+ dt (datetime hour: 5))))) (test-assert (event-contains? ev dt)) - (test-assert (not (event-contains? ev (set dt datetime-date day 10)))))) + (test-assert (not (event-contains? ev (set dt (lens-compose date* day*) 10)))))) (test-group "event-zero-length?" (test-assert (not (event-zero-length? (vevent dtstart: (date))))) |