From ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 Dec 2023 01:58:26 +0100 Subject: 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. --- tests/unit/vcomponent/vcomponent-datetime.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/unit/vcomponent/vcomponent-datetime.scm') 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))))) -- cgit v1.2.3