diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/test_sanctoral_ef.ml | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test/test_sanctoral_ef.ml b/test/test_sanctoral_ef.ml index 24ed972..e3b34a6 100644 --- a/test/test_sanctoral_ef.ml +++ b/test/test_sanctoral_ef.ml @@ -51,6 +51,27 @@ let test_load_and_counts () = Alcotest.(check int) "12 Class1" 12 (List.length class1); let temporal_subjects = List.filter (fun e -> e.L.cel.Cel.subject = Sub.Temporal) l.L.entries in Alcotest.(check int) "no Subject.Temporal" 0 (List.length temporal_subjects); + (* ef-rebootstrap fix round 1 (F8): a guard against WHOLESALE Polish-name + loss, the exact defect lectio itself shipped once (a regeneration that + dropped all 322 name.pl entries, the "SECOND Critical" the lectio side + of this session's own work found and fixed -- register/ledger record). + `parse_names`'s own `field_opt` change (this task's first commit) can + legitimately drop to en-only for a genuinely pl-less source entry -- + verified NOT to silently drop a PRESENT name -- but nothing before + this assertion would have caught a regeneration that dropped pl + WHOLESALE the way lectio's once did: `test_load_and_counts` checked + entry/status/rank counts only, none of which move if every name.pl + vanishes. Independently re-derived, not transcribed: `grep -c + '^name.pl' tridentine-calendar.ini` = 322 (327 entries, 5 lack it -- + the same 5 `parse_names` documents), cross-checked against + `grep -c '(pl' data/ef/sanctoral.sexp` = 322 exactly. *) + let with_pl = + List.filter + (fun e -> Names.find e.L.cel.Cel.names (Lang.of_string_exn "pl") <> None) + l.L.entries + in + Alcotest.(check int) "322 of 327 entries carry a Polish name (5 legitimately do not)" 322 + (List.length with_pl); (* Every slug already had to pass Slug.of_string during load (Slug.t_of_sexp is the validating parser -- an invalid slug would have failed the whole Layer.load with Error, never landing here silently). Re-checking is |