From ce7ad3eead33153b65ead4233714976dac88486c Mon Sep 17 00:00:00 2001
From: giles <giles.bradshaw@rose-ash.com>
Date: Wed, 22 Apr 2026 10:58:17 +0000
Subject: [PATCH] Tests: align cek content-page names with injector output

Load sx/sx/geography/cek/ recursively so content/demo/freeze index.sx
pages bind as ~geography/cek/{content,demo,freeze}. Update docs.sx
cek-page dispatch + test-examples cek:content-pages suite to reference
those real names (were stale ~geography/cek/cek-content etc.).

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
---
 hosts/ocaml/bin/run_tests.ml |  4 +++-
 sx/sxc/pages/docs.sx         | 10 +++++++---
 web/tests/test-examples.sx   | 16 ++++------------
 3 files changed, 14 insertions(+), 16 deletions(-)

diff --git a/hosts/ocaml/bin/run_tests.ml b/hosts/ocaml/bin/run_tests.ml
index 54c35112..598e3cf1 100644
--- a/hosts/ocaml/bin/run_tests.ml
+++ b/hosts/ocaml/bin/run_tests.ml
@@ -2483,7 +2483,9 @@ let run_spec_tests env test_files =
   (* Load one-per-file islands from _islands/ directories.
      Using sx_sx_dir as base matches the live server's naming:
      sx/sx/geography/<domain>/_islands/<stem>.sx -> ~geography/<domain>/<stem>. *)
-  load_dir_recursive (Filename.concat sx_geo_dir "cek/_islands") sx_sx_dir;
+  (* cek/: recursive load picks up content/demo/freeze page index.sx files
+     (→ ~geography/cek/content etc.) plus _islands/*.sx (→ ~geography/cek/<stem>). *)
+  load_dir_recursive (Filename.concat sx_geo_dir "cek") sx_sx_dir;
   let sx_reactive_dir = Filename.concat sx_geo_dir "reactive" in
   if Sys.file_exists (Filename.concat sx_reactive_dir "_islands") then
     load_dir_recursive (Filename.concat sx_reactive_dir "_islands") sx_sx_dir;
diff --git a/sx/sxc/pages/docs.sx b/sx/sxc/pages/docs.sx
index 729eccde..15045435 100644
--- a/sx/sxc/pages/docs.sx
+++ b/sx/sxc/pages/docs.sx
@@ -874,7 +874,7 @@
   :path "/geography/cek/"
   :auth :public
   :layout :sx-docs
-  :content (~layouts/doc :path "/sx/(geography.(cek))" (~geography/cek/cek-content)))
+  :content (~layouts/doc :path "/sx/(geography.(cek))" (~geography/cek)))
 
 ;; ---------------------------------------------------------------------------
 ;; Bootstrapped page helpers demo
@@ -890,8 +890,12 @@
     (case
       slug
       "demo"
-      (~geography/cek/cek-demo-content)
-      :else (~geography/cek/cek-content))))
+      (~geography/cek/demo)
+      "freeze"
+      (~geography/cek/freeze)
+      "content"
+      (~geography/cek/content)
+      :else (~geography/cek))))
 
 ;; ---------------------------------------------------------------------------
 ;; Testing section
diff --git a/web/tests/test-examples.sx b/web/tests/test-examples.sx
index edac16c6..8a790c02 100644
--- a/web/tests/test-examples.sx
+++ b/web/tests/test-examples.sx
@@ -298,18 +298,10 @@
 
 (defsuite
   "cek:content-pages"
-  (deftest
-    "cek-content"
-    (assert-true (component? ~geography/cek/cek-content)))
-  (deftest
-    "cek-demo-content"
-    (assert-true (component? ~geography/cek/cek-demo-content)))
-  (deftest
-    "cek-freeze-content"
-    (assert-true (component? ~geography/cek/cek-freeze-content)))
-  (deftest
-    "cek-content-address-content"
-    (assert-true (component? ~geography/cek/cek-content-address-content))))
+  (deftest "cek-index" (assert-true (component? ~geography/cek)))
+  (deftest "cek-content" (assert-true (component? ~geography/cek/content)))
+  (deftest "cek-demo" (assert-true (component? ~geography/cek/demo)))
+  (deftest "cek-freeze" (assert-true (component? ~geography/cek/freeze))))
 
 (defsuite
   "reactive:islands"