Fix island rendering in OCaml test runner — add Island cases to component accessors

The test runner's component-body/component-params/component-has-children
bindings only handled Component values, not Island. When adapter-html.sx
called (component-body island), it hit the fallback and returned nil,
producing empty island bodies. Also removed debug logging from
component-has-children? primitive.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

hosts/ocaml/bin/run_tests.ml

@@ -465,21 +465,25 @@ let make_test_env () =
   bind "component-params" (fun args ->
     match args with
     | [Component c] -> List (List.map (fun s -> String s) c.c_params)
+    | [Island i] -> List (List.map (fun s -> String s) i.i_params)
     | _ -> Nil);
 
   bind "component-body" (fun args ->
     match args with
     | [Component c] -> c.c_body
+    | [Island i] -> i.i_body
     | _ -> Nil);
 
   bind "component-has-children" (fun args ->
     match args with
     | [Component c] -> Bool c.c_has_children
+    | [Island i] -> Bool i.i_has_children
     | _ -> Bool false);
 
   bind "component-affinity" (fun args ->
     match args with
     | [Component c] -> String c.c_affinity
+    | [Island _] -> String "client"
     | _ -> String "auto");
 
   (* --- Parser test helpers --- *)