diff options
Diffstat (limited to 'test/test_validate.ml')
| -rw-r--r-- | test/test_validate.ml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/test/test_validate.ml b/test/test_validate.ml index 9fa3c5c..8e63a1b 100644 --- a/test/test_validate.ml +++ b/test/test_validate.ml @@ -15,6 +15,7 @@ module T = Rite_ef.Temporal_ef of the (test ...) stanza. *) let sanctoral_path = "../data/ef/sanctoral.sexp" let adjustments_path = "../data/ef/adjustments.sexp" +let lectionary_path = "../data/ef/lectionary.sexp" (* Loaded once at module init, not per call: [run] below is called by every test and by the 200-sample property, and Calendar.year's own resolution @@ -34,7 +35,16 @@ let real_ef_layer = (String.concat "; " (List.map Overlay.diagnostic_to_string diagnostics))); layer) -let run year = Val.run Rite_ef.context real_ef_layer ~year +(* [Rite_ef.context] takes [~lectionary] (fix round 1, coordinator review) -- + caller-supplied, same as [real_ef_layer] above. *) +let real_ef_lectionary = + match Colitur_kernel.Lectionary.load lectionary_path with + | Error e -> failwith (Printf.sprintf "%s: failed to load: %s" lectionary_path e) + | Ok l -> l + +let real_ef_rite = Rite_ef.context ~lectionary:real_ef_lectionary + +let run year = Val.run real_ef_rite real_ef_layer ~year let check_year year = match run year with |