1 files changed, 14 insertions, 4 deletions
diff --git a/test/test_view.ml b/test/test_view.ml
index 37fb284..b2d302e 100644
--- a/test/test_view.ml
+++ b/test/test_view.ml
@@ -45,7 +45,8 @@ let default_lang =
   lazy (Colitur_naming.Lang.with_fallback (read_lang "../lang/en.ini") (read_lang "../lang/la.ini"))
 
 let view_of y =
-  V.of_days ~lang:(Lazy.force default_lang) ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:y
+  let lang = Lazy.force default_lang in
+  V.of_days ~lang ~sigla:(Test_support.default_sigla lang) ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:y
     (days_of_year y)
 
 let get path v =
@@ -180,7 +181,10 @@ let latin () =
   match Colitur_naming.Lang.of_string s with
   | Ok t -> t | Error e -> Alcotest.failf "la.ini: %s" e
 
-let view_named y = V.of_days ~lang:(latin ()) ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:y (days_of_year y)
+let view_named y =
+  let lang = latin () in
+  V.of_days ~lang ~sigla:(Test_support.default_sigla lang) ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:y
+    (days_of_year y)
 
 (* The ordo booklet's week header (Hebdomada I (Ian 1-2)): a Roman numeral
    beside the existing arabic one, and month_num/month_name/month_abbr
@@ -256,7 +260,10 @@ let test_no_day_shows_a_slug () =
     (as_list (get [ "days" ] v))
 
 let test_slug_is_unchanged_by_naming () =
-  let raw = V.of_days ~lang:Colitur_naming.Lang.raw ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:2027 (days_of_year 2027) in
+  let raw =
+    V.of_days ~lang:Colitur_naming.Lang.raw ~sigla:Colitur_citation.Sigla.verbatim
+      ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:2027 (days_of_year 2027)
+  in
   let named = view_named 2027 in
   List.iter2
     (fun a b -> Alcotest.(check string) "slug identical" (as_str (get [ "slug" ] a)) (as_str (get [ "slug" ] b)))
@@ -264,7 +271,10 @@ let test_slug_is_unchanged_by_naming () =
 
 (* Under --raw the name IS the slug: that is what makes raw output byte-stable. *)
 let test_raw_name_equals_slug () =
-  let raw = V.of_days ~lang:Colitur_naming.Lang.raw ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:2027 (days_of_year 2027) in
+  let raw =
+    V.of_days ~lang:Colitur_naming.Lang.raw ~sigla:Colitur_citation.Sigla.verbatim
+      ~vocab:Rite_ef.Vocab_ef.vocab ~rite:"ef" ~year:2027 (days_of_year 2027)
+  in
   List.iter
     (fun d -> Alcotest.(check string) "raw" (as_str (get [ "slug" ] d)) (as_str (get [ "name" ] d)))
     (as_list (get [ "days" ] raw))