merge: celebrant Mass rubrics, and four rubrical corrections

colitur now prints what a real ordo prints for the Mass: which formulary is
said and how it was reached, the Gloria, the Creed, the preface, and the
commemorations with their Low-Mass/sung distinction. colitur rubrics joins
day and readings.

Four defects were found and fixed on the way, each by an external witness
rather than by inspection: the Creed said at Requiem Masses (RG 476(f)),
the missing bissextile shift of St Matthias and St Gabriel (2 041 leap
years), Rogation Monday and Tuesday coloured violet in Paschaltide (RG
119(b)), and the ferias after the Ascension resuming the wrong Sunday's
Mass rather than the Ascension's.

Validation gained a sixth layer and then some: the preface is checked
against three independent publishers over seven witness-years (FIUV, three
LMS editions, three extraordinaryform.org editions), none of which shares
the Divinum Officium -> missalemeum -> lectio lineage the older layers all
descend from.

1 files changed, 16 insertions, 4 deletions

diff --git a/test/test_calendar.ml b/test/test_calendar.ml
index 132a466..9059574 100644
--- a/test/test_calendar.ml
+++ b/test/test_calendar.ml
@@ -99,9 +99,18 @@ module Fixture = struct
     let rec search d = if (occupant d).Cel.rank = Lo then d else search (D.add_days d 1) in
     search (D.add_days origin 1)
 
-  (* No fixture here exercises citations -- readings is a harmless constant
-     [], the same role [empty_layer] plays for the sanctoral side. *)
-  let readings ~observed:_ ~temporal:_ ~date:_ ~temporal_at:_ = []
+  (* No fixture here exercises citations or the formulary -- readings is a
+     harmless constant [(None, [])], the same role [empty_layer] plays for
+     the sanctoral side. *)
+  let readings ~observed:_ ~temporal:_ ~date:_ ~temporal_at:_ = (None, [])
+
+  (* No fixture here exercises the Creed, Gloria or preface rubrics either
+     -- a rite that has not implemented them returns [false]/[None]
+     explicitly, {!Rite.t.creed}/{!Rite.t.gloria}/{!Rite.t.preface}'s own
+     documented default. *)
+  let creed ~temporal:_ ~observed:_ ~date:_ = false
+  let gloria ~temporal:_ ~observed:_ ~date:_ = false
+  let preface ~temporal:_ ~observed:_ ~date:_ = None
 
   let rite : (season, rank) Rite.t =
     { Rite.id = "synthetic-calendar"; vocab; year_start; temporal; anchors = (fun _ -> []);
@@ -110,7 +119,10 @@ module Fixture = struct
          any for a fixture; nothing here is Easter-relative, so the value
          is never actually read. *)
       easter = Colitur_kernel.Computus.gregorian_easter;
-      rules; season_runs = [ A; B ]; transfer_target; readings }
+      (* Not a Roman rite either, so no bissextile-doubling convention:
+         identity, {!Rite.t.fixed_key}'s own documented default. *)
+      fixed_key = (fun d -> Some (D.month d, D.day d));
+      rules; season_runs = [ A; B ]; transfer_target; readings; creed; gloria; preface }
 
   let entry ~month ~day ~slug ~rank =
     { Layer.date = (match Date_spec.fixed ~month ~day with Ok d -> d | Error e -> failwith e);