diff options
Diffstat (limited to 'test/test_calendar.ml')
| -rw-r--r-- | test/test_calendar.ml | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/test/test_calendar.ml b/test/test_calendar.ml index aeaeea0..a533ab2 100644 --- a/test/test_calendar.ml +++ b/test/test_calendar.ml @@ -471,6 +471,18 @@ let real_ef_lectionary_for_transfer_probes = | Error e -> failwith ("../data/ef/lectionary.sexp: " ^ e) | Ok l -> l +(* The Commons (data/ef/commons.sexp) travel the same caller-supplied seam + as the lectionary above, and [~commons] is required rather than defaulted + so that no caller can silently run with none -- nothing in layers 3-5 + compares reading citations, so a rite quietly missing its Commons would + be invisible. Loaded here even where this file asserts nothing about + readings, so that the rite under test is the same one bin/main.ml + assembles. *) +let real_ef_commons_for_transfer_probes = + match Rite_ef.Lectionary_ef.Commons.load "../data/ef/commons.sexp" with + | Error e -> failwith ("../data/ef/commons.sexp: " ^ e) + | Ok c -> c + let test_transferred_commemoration_only_capped_out_at_target_settles_cleanly () = let probe_date = match Colitur_kernel.Date_spec.fixed ~month:4 ~day:26 with Ok d -> d | Error e -> failwith e @@ -488,7 +500,8 @@ let test_transferred_commemoration_only_capped_out_at_target_settles_cleanly () 25 and 26 April 2011. *) let year = C.year - (Rite_ef.context ~lectionary:real_ef_lectionary_for_transfer_probes) + (Rite_ef.context ~lectionary:real_ef_lectionary_for_transfer_probes + ~commons:real_ef_commons_for_transfer_probes) augmented_layer 2010 in let find_date target = |