aboutsummaryrefslogtreecommitdiff
path: root/test/test_lms_ordo.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/test_lms_ordo.ml')
-rw-r--r--test/test_lms_ordo.ml22
1 files changed, 16 insertions, 6 deletions
diff --git a/test/test_lms_ordo.ml b/test/test_lms_ordo.ml
index 42dc31d..00fb32c 100644
--- a/test/test_lms_ordo.ml
+++ b/test/test_lms_ordo.ml
@@ -594,12 +594,22 @@ let make_suite ~label ~fixture_path ~fixture_sha256 ~window_first ~window_last ~
[make_suite] threads the per-window expected totals directly
(~expected_gloria_l5/~expected_gloria_l6 below) instead. *)
let is_l5_lenten_commemoration (o : ordo_row) (c : colitur_row) =
- (* RG 431(b)/n.302(b): "Missa de commemoratione in Officio diei
- occurrente" says the Gloria. Every instance found is a privileged
- Lenten/Passiontide feria (Class3, violet -- {!TE}'s own
- [ferial_rank], RG25) carrying exactly one commemoration of an
- impeded Class3 saint, colitur reading [gloria]=false (the ferial
- Mass on its own) where the Ordo reads [true]. *)
+ (* NOT a Gloria defect (CORRECTED, l5-f3-readjudication task,
+ 2026-08-22 -- data/ef/expected-divergences-lms.sexp's own L5 has
+ the full account, including the RG 431(b)/n.302(b) hypothesis this
+ comment used to state as settled and RG 303(b)'s own "dici potest
+ tantum si occurrit dies liturgicus IV classis", which prohibits
+ 302(b) on exactly these THIRD-class privileged ferias). Every
+ instance is a privileged Lenten/Passiontide feria (Class3, violet
+ -- {!TE}'s own [ferial_rank], RG25) carrying exactly one
+ commemoration of an impeded Class3 saint, colitur reading
+ [gloria]=false (the ferial Mass, correctly, per the 1962 core)
+ where the Ordo reads [true] (the LMS Ordo follows the 2020 decree
+ Cum Sanctissima, colitur excludes it by binding design, CLAUDE.md
+ decision 2) -- an OCCURRENCE difference between two different,
+ both genuine, calendars, not a rule dispute. Predicate kept AS A
+ MATCHER (the 16-date population is unchanged); only the citation
+ explaining WHY it is allow-listed was wrong. *)
(not c.c_gloria) && Option.value o.gloria ~default:false && c.c_has_commemoration && c.c_rank = V.Class3
in
let is_l6_rogation_colour (o : ordo_row) (c : colitur_row) =