From 27a8fbdf738f7fdb4c9a42ec99f08855dbed440b Mon Sep 17 00:00:00 2001
From: Lukasz Kasprzak <lukas@labunix.xyz>
Date: Wed, 19 Aug 2026 09:47:41 +0200
Subject: feat(templates): ordo booklet in six flavours, pinned by goldens

LaTeX and groff are the print paths; HTML carries a print stylesheet;
AsciiDoc, Markdown and plain text are the plain-consumer paths.

AsciiDoc and Markdown use flavour none, and say so in a comment: their
metacharacters are context-dependent and escaping them aggressively
produces worse output than not escaping. The consequence is real and
documented -- a feast name containing * renders as emphasis.

Golden tests pin all six byte-for-byte for 2027. They prove the
templates RENDER, not that they TYPESET; compiling needs TeX and groff,
which is Task 13's opt-in make check-templates.
---
 test/test_render_golden.ml | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 test/test_render_golden.ml

(limited to 'test/test_render_golden.ml')

diff --git a/test/test_render_golden.ml b/test/test_render_golden.ml
new file mode 100644
index 0000000..913513a
--- /dev/null
+++ b/test/test_render_golden.ml
@@ -0,0 +1,40 @@
+(* Pins the six shipped ordo booklet templates, one per flavour, under
+   templates/ef/, against a byte-for-byte golden render of 2027. These are
+   the templates a real user ships with colitur, rendered through the same
+   Template.render_string / View.of_days path colitur table uses -- so a
+   change to the view shape, the escaping rules, or the templates themselves
+   that alters output is caught here, not only in test_view.ml's shape
+   assertions. *)
+
+module T = Colitur_render.Template
+module E = Colitur_render.Escape
+
+let render_template path year =
+  let ic = open_in_bin path in
+  let src = really_input_string ic (in_channel_length ic) in
+  close_in ic;
+  let ext =
+    match String.rindex_opt path '.' with
+    | Some i -> String.sub path i (String.length path - i)
+    | None -> ""
+  in
+  let flavour = match E.of_extension ext with Some f -> f | None -> Alcotest.failf "flavour for %s" ext in
+  let v = Test_view.view_of year in
+  match T.render_string ~flavour src v with Ok s -> s | Error e -> Alcotest.failf "%s: %s" path e
+
+let read path =
+  let ic = open_in_bin path in
+  let s = really_input_string ic (in_channel_length ic) in
+  close_in ic;
+  s
+
+let check_golden name =
+  let got = render_template ("../templates/ef/" ^ name) 2027 in
+  let want = read ("golden/" ^ Filename.remove_extension name ^ "-2027" ^ Filename.extension name) in
+  Alcotest.(check string) name want got
+
+let cases = [ "ordo.tex"; "ordo.ms"; "ordo.html"; "ordo.adoc"; "ordo.md"; "ordo.txt" ]
+
+let suite =
+  ( "Render/golden",
+    List.map (fun n -> Alcotest.test_case n `Quick (fun () -> check_golden n)) cases )
-- 
cgit v1.3