HS: deferred-reraise in catch + exception event tests (+5)

- compiler: wrap catch body in nested guard so (raise e) inside a
  catch handler defers the re-raise until after the guard exits,
  avoiding the handler-stays-active infinite loop
- generator: MANUAL_TEST_BODIES for rethrown/uncaught exception events,
  can-pick-detail/event-property, bootstrap bootstraps; remove from
  skip-list; regenerate behavioral spec

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

spec/tests/test-hyperscript-behavioral.sx

@@ -1172,7 +1172,7 @@
     ))
   (deftest "can call global javascript functions"
     (hs-cleanup!)
-    (host-set! (host-global "window") "calledWith" nil)
+    (host-set! (host-global "window") "calledWith" null)
     (let ((_el-div (dom-create-element "div")))
       (dom-set-attr _el-div "_" "on click call globalFunction(\"foo\")")
       (dom-append (dom-body) _el-div)
@@ -1252,7 +1252,8 @@
       (dom-append (dom-body) _el-div)
       (hs-activate! _el-div)
       (dom-dispatch _el-div "click" nil)
-    ))
+    )
+  )
   (deftest "can change non-class properties"
     (hs-cleanup!)
     (let ((_el-div (dom-create-element "div")))
@@ -1399,7 +1400,8 @@
       (hs-deactivate! _el-div)
       (dom-remove-class _el-div "foo")
       (dom-dispatch _el-div "click" nil)
-      (assert (not (dom-has-class? _el-div "foo")))))
+      (assert (not (dom-has-class? _el-div "foo"))))
+  )
   (deftest "cleanup tracks listeners in elt._hyperscript"
     (hs-cleanup!)
     (let ((_el-div (dom-create-element "div")))
@@ -1483,7 +1485,8 @@
       (dom-set-attr _el-div "_" "on click add .bar")
       (hs-activate! _el-div)
       (dom-dispatch _el-div "click" nil)
-      (assert (dom-has-class? _el-div "bar"))))
+      (assert (dom-has-class? _el-div "bar")))
+  )
   (deftest "sets data-hyperscript-powered on initialized elements"
     (hs-cleanup!)
     (let ((_el-div (dom-create-element "div")))
@@ -2027,7 +2030,20 @@
       (assert= (dom-text-content _el-button) "select2")
     ))
   (deftest "can pick detail fields out by name"
-    (error "SKIP (skip-list): can pick detail fields out by name"))
+    (hs-cleanup!)
+    (let ((_el-d1 (dom-create-element "div")) (_el-d2 (dom-create-element "div")))
+      (dom-set-attr _el-d1 "id" "d1")
+      (dom-set-attr _el-d1 "_" "on click send custom(foo:\"fromBar\") to #d2")
+      (dom-set-attr _el-d2 "id" "d2")
+      (dom-set-attr _el-d2 "_" "on custom(foo) call me.classList.add(foo)")
+      (dom-append (dom-body) _el-d1)
+      (dom-append (dom-body) _el-d2)
+      (hs-activate! _el-d1)
+      (hs-activate! _el-d2)
+      (assert (not (dom-has-class? _el-d2 "fromBar")))
+      (dom-dispatch _el-d1 "click" nil)
+      (assert (dom-has-class? _el-d2 "fromBar")))
+  )
   (deftest "can refer to function in init blocks"
     (hs-cleanup!)
     (let ((_el-d1 (dom-create-element "div")))
@@ -9357,9 +9373,35 @@
       (hs-activate! _el-div)
     ))
   (deftest "can pick detail fields out by name"
-    (error "SKIP (skip-list): can pick detail fields out by name"))
+    (hs-cleanup!)
+    (let ((_el-d1 (dom-create-element "div")) (_el-d2 (dom-create-element "div")))
+      (dom-set-attr _el-d1 "id" "d1")
+      (dom-set-attr _el-d1 "_" "on click send custom(foo:\"fromBar\") to #d2")
+      (dom-set-attr _el-d2 "id" "d2")
+      (dom-set-attr _el-d2 "_" "on custom(foo) call me.classList.add(foo)")
+      (dom-append (dom-body) _el-d1)
+      (dom-append (dom-body) _el-d2)
+      (hs-activate! _el-d1)
+      (hs-activate! _el-d2)
+      (assert (not (dom-has-class? _el-d2 "fromBar")))
+      (dom-dispatch _el-d1 "click" nil)
+      (assert (dom-has-class? _el-d2 "fromBar")))
+  )
   (deftest "can pick event properties out by name"
-    (error "SKIP (skip-list): can pick event properties out by name"))
+    (hs-cleanup!)
+    (let ((_el-d1 (dom-create-element "div")) (_el-d2 (dom-create-element "div")))
+      (dom-set-attr _el-d1 "id" "d1")
+      (dom-set-attr _el-d1 "_" "on click send fromBar to #d2")
+      (dom-set-attr _el-d2 "id" "d2")
+      (dom-set-attr _el-d2 "_" "on fromBar(type) call me.classList.add(type)")
+      (dom-append (dom-body) _el-d1)
+      (dom-append (dom-body) _el-d2)
+      (hs-activate! _el-d1)
+      (hs-activate! _el-d2)
+      (assert (not (dom-has-class? _el-d2 "fromBar")))
+      (dom-dispatch _el-d1 "click" nil)
+      (assert (dom-has-class? _el-d2 "fromBar")))
+  )
   (deftest "can queue all events"
     (hs-cleanup!)
     (let ((_el-qa (dom-create-element "div")))
@@ -9575,7 +9617,15 @@
       (hs-activate! _el-div)
     ))
   (deftest "rethrown exceptions trigger 'exception' event"
-    (error "SKIP (skip-list): rethrown exceptions trigger 'exception' event"))
+    (hs-cleanup!)
+    (let ((_el-button (dom-create-element "button")))
+      (dom-set-attr _el-button "_"
+        "on click put \"foo\" into me then throw \"bar\" catch e throw e on exception(error) put error into me")
+      (dom-append (dom-body) _el-button)
+      (hs-activate! _el-button)
+      (dom-dispatch _el-button "click" nil)
+      (assert= (dom-text-content _el-button) "bar"))
+  )
   (deftest "supports \"elsewhere\" modifier"
     (hs-cleanup!)
     (let ((_el-div (dom-create-element "div")))
@@ -9608,7 +9658,15 @@
       (assert= (dom-text-content (dom-query-by-id "d")) "1")
     ))
   (deftest "uncaught exceptions trigger 'exception' event"
-    (error "SKIP (skip-list): uncaught exceptions trigger 'exception' event"))
+    (hs-cleanup!)
+    (let ((_el-button (dom-create-element "button")))
+      (dom-set-attr _el-button "_"
+        "on click put \"foo\" into me then throw \"bar\" on exception(error) put error into me")
+      (dom-append (dom-body) _el-button)
+      (hs-activate! _el-button)
+      (dom-dispatch _el-button "click" nil)
+      (assert= (dom-text-content _el-button) "bar"))
+  )
 )
 
 ;; ── pick (24 tests) ──