aboutsummaryrefslogtreecommitdiff
path: root/test/test_differential.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/test_differential.ml')
-rw-r--r--test/test_differential.ml13
1 files changed, 13 insertions, 0 deletions
diff --git a/test/test_differential.ml b/test/test_differential.ml
index a9bdb91..aa75737 100644
--- a/test/test_differential.ml
+++ b/test/test_differential.ml
@@ -450,6 +450,19 @@ let layer_c_reason (l : row) (c : row) diffs =
&& subset diffs [ Slug_f; Rank; Colour_f ]
then Some "C10"
else if String.equal c.slug "ef-passiontide-2-thursday" && diffs = [ Colour_f ] then Some "C11"
+ (* RG16(a) task (register ยง6.0 + the sanctoral subject audit, this task's
+ own report): 2 February on a Sunday. colitur now observes the Sunday
+ (data/ef/adjustments.sexp retags the Purification `Bvm`, so it no
+ longer bands at RG 91 entry 14 -- only a Feast of the LORD does); the
+ Purification survives as its own commemoration, matching the register's
+ ruling, just not as [c]'s OBSERVED slug here. lectio still tags it
+ `class = lord` (unretagged upstream) and so still observes it outright.
+ Matched on [l.slug] (lectio's side), the only side that can show this
+ literal now -- colitur's own [c.slug] is whichever Sunday family the
+ date falls in (time-after-epiphany or Septuagesima), not one fixed
+ literal, unlike [c7]/[c11]'s single-slug tests above. *)
+ else if String.equal l.slug "purification-of-the-blessed-virgin-mary" && subset diffs [ Slug_f; Colour_f ]
+ then Some "C12"
else None
(* ---------------------------------------------------------------------- *)