diff options
Diffstat (limited to 'test/test_calendar.ml')
| -rw-r--r-- | test/test_calendar.ml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/test_calendar.ml b/test/test_calendar.ml index 9059574..0b8d3f7 100644 --- a/test/test_calendar.ml +++ b/test/test_calendar.ml @@ -122,7 +122,16 @@ module Fixture = struct (* Not a Roman rite either, so no bissextile-doubling convention: identity, {!Rite.t.fixed_key}'s own documented default. *) fixed_key = (fun d -> Some (D.month d, D.day d)); - rules; season_runs = [ A; B ]; transfer_target; readings; creed; gloria; preface } + rules; season_runs = [ A; B ]; transfer_target; readings; + (* [readings] above is a harmless constant [(None, [])] -- this + fixture never actually exercises {!Colitur_kernel.Validate}'s + citation checks (it drives {!Colitur_kernel.Calendar.year} + directly), so any non-empty shape list satisfies {!Rite.t}'s + type without being meaningfully tested here. Mirrors EF's own + one-shape [[First; Gospel]] rather than inventing a bespoke + synthetic vocabulary for a field this file never reads. *) + citation_shapes = [ [ Colitur_kernel.Citation.First; Colitur_kernel.Citation.Gospel ] ]; + creed; gloria; preface } let entry ~month ~day ~slug ~rank = { Layer.date = (match Date_spec.fixed ~month ~day with Ok d -> d | Error e -> failwith e); |