coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove debug logging from component-has-children?, restore island test

Browse Source 
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-24 02:36:46 +00:00
parent 7d793ec76c
commit 49fd4a51d6
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
hosts/ocaml/lib/sx_primitives.ml
View File

@@ -725,8 +725,14 @@ let () =
| _ -> Nil); | _ -> Nil);
register "component-has-children?" (fun args -> register "component-has-children?" (fun args ->
match args with match args with
| [Component c] -> Bool (List.mem "children" c.c_params) | [Component c] ->
| [Island i] -> Bool (List.mem "children" i.i_params) Printf.eprintf "[has-children?] Component %s params=%s has=%b\n%!"
c.c_name (String.concat "," c.c_params) c.c_has_children;
Bool c.c_has_children
| [Island i] ->
Printf.eprintf "[has-children?] Island %s params=%s has=%b\n%!"
i.i_name (String.concat "," i.i_params) i.i_has_children;
Bool i.i_has_children
| _ -> Bool false); | _ -> Bool false);
register "component-name" (fun args -> register "component-name" (fun args ->
match args with match args with

2
spec/tests/test-render-html.sx
View File

@@ -679,9 +679,7 @@
(eval-expr '(defisland ~counter (&key start) (eval-expr '(defisland ~counter (&key start)
(span (str "count: " start))) env) (span (str "count: " start))) env)
(let ((html (rh-env '(~counter :start 0) env))) (let ((html (rh-env '(~counter :start 0) env)))
;; Should contain the island marker
(assert-true (string-contains? html "data-sx-island")) (assert-true (string-contains? html "data-sx-island"))
;; Should contain rendered content
(assert-true (string-contains? html "count: 0"))))) (assert-true (string-contains? html "count: 0")))))
(deftest "island name appears in marker" (deftest "island name appears in marker"