diff options
Diffstat (limited to 'test/test_rubrics_of.ml')
| -rw-r--r-- | test/test_rubrics_of.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/test_rubrics_of.ml b/test/test_rubrics_of.ml index db8744a..c29de8e 100644 --- a/test/test_rubrics_of.ml +++ b/test/test_rubrics_of.ml @@ -180,7 +180,7 @@ let test_gloria_all_souls () = let credo_on_temporal y m d = let temporal = T.temporal (mk y m d) in - RO.credo ~temporal ~observed:temporal.Colitur_kernel.Temporal.office ~date:(mk y m d) + RO.creed ~temporal ~observed:temporal.Colitur_kernel.Temporal.office ~date:(mk y m d) let check_credo name expected actual = Alcotest.(check bool) name expected actual @@ -201,7 +201,7 @@ let test_credo_solemnity () = mk_saint ~slug:"joseph-husband-of-the-blessed-virgin-mary" ~rank:Vocab_of.Sollemnitas ~colour:Colour.White ~subject:Subject.Saint () in - check_credo "Credo: a solemnity" true (RO.credo ~temporal ~observed ~date:(mk 2026 3 19)) + check_credo "Credo: a solemnity" true (RO.creed ~temporal ~observed ~date:(mk 2026 3 19)) let test_credo_festum () = (* Same Chair-of-Peter data as [test_gloria_festum] -- [false] here, @@ -214,7 +214,7 @@ let test_credo_festum () = ~subject:Subject.Saint () in check_credo "no Credo on an ordinary Festum (unlike Gloria)" false - (RO.credo ~temporal ~observed ~date:(mk 2027 2 22)) + (RO.creed ~temporal ~observed ~date:(mk 2027 2 22)) let test_credo_weekday_obligatory_memorial () = let temporal = T.temporal (mk 2027 6 21) in @@ -223,7 +223,7 @@ let test_credo_weekday_obligatory_memorial () = ~colour:Colour.White ~subject:Subject.Saint () in check_credo "no Credo on a weekday obligatory memorial" false - (RO.credo ~temporal ~observed ~date:(mk 2027 6 21)) + (RO.creed ~temporal ~observed ~date:(mk 2027 6 21)) let test_credo_ordinary_feria () = check_credo "no Credo on a plain feria" false (credo_on_temporal 2026 1 27) @@ -233,7 +233,7 @@ let test_credo_all_souls () = let observed = mk_saint ~slug:"all-souls" ~rank:Vocab_of.Sollemnitas ~colour:Colour.Violet ~subject:Subject.Saint () in - check_credo "no Credo on All Souls" false (RO.credo ~temporal ~observed ~date:(mk 2026 11 2)) + check_credo "no Credo on All Souls" false (RO.creed ~temporal ~observed ~date:(mk 2026 11 2)) (* ---- Preface -- always [None]; see rubrics_of.ml's own header for the full INDEX-PRAEFATIONUM census this rests on. One row per major class, |