diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/test_rite_ef.ml | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/test_rite_ef.ml b/test/test_rite_ef.ml index 45aa918..9a1e6d5 100644 --- a/test/test_rite_ef.ml +++ b/test/test_rite_ef.ml @@ -142,6 +142,30 @@ let test_rg16a_subject_retag_in_effect () = "Dedication of the Archbasilica of the Most Holy Saviour stays Lord -- audit, not touched" true (subject_of "dedication-of-the-archbasilica-of-our-holy-savior" = Subject.Lord) +(* ef-rebootstrap fix round 1, F3: eusebius-confessor (14 Aug, one of the 5 + entries this re-bootstrap added) is bootstrapped `Red` -- a lectio data + defect (both lectio's own ini and missalemeum's `:r` colour tag agree + with each other, not with the Missal). `missale-romanum-1962.pdf`'s own + proper for the day, verified directly against the scan (not transcribed + from a reviewer's reading): "S. Eusebii Conf. / Commemoratio / Missa + Iustus, ut in festo S. Pauli primi Eremitae..." -- a CONFESSOR ("Conf."), + borrowing the SAME Mass 15 January's own Paul the First Hermit uses, a + white Confessor's Common in both engines' own data. Fixed via + adjustments.sexp's new Edit directive -- proven here through the real + pipeline, the same discipline [test_rg16a_subject_retag_in_effect] above + already applies to the subject retags, so a typo'd slug or a reverted + directive fails a test rather than only silently changing unread data. *) +let test_eusebius_confessor_colour_corrected () = + let layer = real_layer () in + match Layer.find layer (Slug.of_string_exn "eusebius-confessor") with + | None -> Alcotest.fail "slug eusebius-confessor not found in the overlaid layer" + | Some e -> + Alcotest.(check bool) + "Eusebius Confessor is White (RG's own Common of Confessors, via the borrowed Mass \"Iustus\"), not \ + lectio's bootstrapped Red" + true + (e.Layer.cel.Cel.colour = Colour.White) + (* Coordinator review, finding 2, reproduced through the project's OWN extension path (an overlay), the same way the reviewer found it: adding an I-class feast on 25 December (competing against, and losing to, the @@ -351,6 +375,8 @@ let suite = test_vigil_of_christmas_suppressed; Alcotest.test_case "RG16(a) task: the two subject retags are in effect, the other four untouched" `Quick test_rg16a_subject_retag_in_effect; + Alcotest.test_case "ef-rebootstrap fix round 1 (F3): eusebius-confessor is White, not lectio's Red" `Quick + test_eusebius_confessor_colour_corrected; Alcotest.test_case "RG96 search does not raise at the domain ceiling (real data)" `Quick test_transfer_search_does_not_raise_at_domain_ceiling; Alcotest.test_case "no transfer ever lands inside [Easter, Easter+7], 2005-2050" `Quick |