HS: mixed-op enforcement + short-circuit + typecheck + strings (+7 tests)

- parser.sx: parse-logical now rejects mixed and/or without parens
- parser.sx: parse-arith now rejects mixed +/-/* //%/mod without parens
- generate-sx-tests.py: MANUAL_TEST_BODIES for short-circuit and/or,
  typecheck (direct hs-type-assert calls), template string test
- generate-sx-tests.py: Pattern 5 for error("expr") -> assert-throws
- hs-run-filtered.js: redefine try-call to _run-test-thunk after loading
  so assert-throws actually catches exceptions (was always {ok true})
- hs-run-filtered.js: clear __hs_deadline immediately after test eval
  to prevent cascading timeout fires in result inspection K.eval calls
- hs-run-filtered.js: typecheck suite in _NO_STEP_LIMIT_SUITES and
  _SLOW_DEADLINE_SUITES (hs-type-assert JIT is slow on first call)

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

spec/tests/test-hyperscript-behavioral.sx

@@ -1805,9 +1805,11 @@
 ;; ── core/parser (14 tests) ──
 (defsuite "hs-upstream-core/parser"
   (deftest "_hyperscript() evaluate API still throws on first error"
-    (error "SKIP (untranslated): _hyperscript() evaluate API still throws on first error"))
+    (assert-throws (fn () (eval-hs "add - to")))
+  )
   (deftest "basic parse error messages work"
-    (error "SKIP (untranslated): basic parse error messages work"))
+    (assert-throws (fn () (eval-hs "add - to")))
+  )
   (deftest "can have alternate comments in attributes"
     (hs-cleanup!)
     (let ((_el-div (dom-create-element "div")))
@@ -2090,7 +2092,8 @@
       (assert= (dom-text-content (dom-query-by-id "div1")) "foo")
     ))
   (deftest "extra chars cause error when evaling"
-    (error "SKIP (untranslated): extra chars cause error when evaling"))
+    (assert-throws (fn () (eval-hs "1!")))
+  )
   (deftest "listen for event on form"
     (hs-cleanup!)
     (let ((_el-form (dom-create-element "form")) (_el-b1 (dom-create-element "button")))
@@ -3927,7 +3930,8 @@
       (dom-append (dom-body) _el-button)
       (hs-activate! _el-button)
       (dom-dispatch _el-button "click" nil)
-      (assert= (dom-text-content (dom-query-by-id "target")) "new")))
+      (assert= (dom-text-content (dom-query-by-id "target")) "new")
+    ))
   (deftest "set #id replaces element with HTML string"
     (hs-cleanup!)
     (let ((_el-target (dom-create-element "div")) (_el-button (dom-create-element "button")))
@@ -5776,11 +5780,28 @@
     (assert= (eval-hs "true and (false or true)") true)
   )
   (deftest "should short circuit with and expression"
-    (error "SKIP (untranslated): should short circuit with and expression"))
+    (let ((func1-called false) (func2-called false))
+      (let ((func1 (fn () (let ((dummy (set! func1-called true))) false)))
+            (func2 (fn () (let ((dummy (set! func2-called true))) false))))
+        (let ((result (eval-hs-locals "func1() and func2()"
+                        (list (list (quote func1) func1) (list (quote func2) func2)))))
+          (assert= result false)
+          (assert func1-called)
+          (assert (not func2-called)))))
+  )
   (deftest "should short circuit with or expression"
-    (error "SKIP (untranslated): should short circuit with or expression"))
+    (let ((func1-called false) (func2-called false))
+      (let ((func1 (fn () (let ((dummy (set! func1-called true))) true)))
+            (func2 (fn () (let ((dummy (set! func2-called true))) true))))
+        (let ((result (eval-hs-locals "func1() or func2()"
+                        (list (list (quote func1) func1) (list (quote func2) func2)))))
+          (assert result)
+          (assert func1-called)
+          (assert (not func2-called)))))
+  )
   (deftest "unparenthesized expressions with multiple operators cause an error"
-    (error "SKIP (untranslated): unparenthesized expressions with multiple operators cause an error"))
+    (assert-throws (fn () (eval-hs "true and false or true")))
+  )
 )
 
 ;; ── expressions/mathOperator (15 tests) ──
@@ -5827,7 +5848,8 @@
     (assert= (eval-hs "1 - 1") 0)
   )
   (deftest "unparenthesized expressions with multiple operators cause an error"
-    (error "SKIP (untranslated): unparenthesized expressions with multiple operators cause an error"))
+    (assert-throws (fn () (eval-hs "1 + 2 * 3")))
+  )
 )
 
 ;; ── expressions/no (9 tests) ──
@@ -6749,7 +6771,12 @@
     (assert= (eval-hs-locals "`https://${foo}`" (list (list (quote foo) "bar"))) "https://bar")
   )
   (deftest "should handle strings with tags and quotes"
-    (error "SKIP (untranslated): should handle strings with tags and quotes"))
+    (let ((record {:name "John Connor" :age 21 :favouriteColour "bleaux"}))
+      (assert= (eval-hs-locals
+          "`<div age=\"${record.age}\" style=\"color:${record.favouriteColour}\">${record.name}</div>`"
+          (list (list (quote record) record)))
+        "<div age=\"21\" style=\"color:bleaux\">John Connor</div>"))
+  )
   (deftest "string templates preserve white space"
     (assert= (eval-hs "` ${1 + 2} ${1 + 2} `") " 3 3 ")
     (assert= (eval-hs "`${1 + 2} ${1 + 2} `") "3 3 ")
@@ -6828,7 +6855,8 @@
 ;; ── expressions/typecheck (5 tests) ──
 (defsuite "hs-upstream-expressions/typecheck"
   (deftest "can do basic non-string typecheck failure"
-    (error "SKIP (untranslated): can do basic non-string typecheck failure"))
+    (assert-throws (fn () (hs-type-assert true "String")))
+  )
   (deftest "can do basic string non-null typecheck"
     (assert= (eval-hs "'foo' : String!") "foo")
   )
@@ -6839,7 +6867,8 @@
     (eval-hs "null : String")
   )
   (deftest "null causes null safe string check to fail"
-    (error "SKIP (untranslated): null causes null safe string check to fail"))
+    (assert-throws (fn () (hs-type-assert-strict nil "String")))
+  )
 )
 
 ;; ── ext/component (20 tests) ──
@@ -9845,7 +9874,8 @@
       (dom-dispatch (dom-query-by-id "d1") "click" nil)
     ))
   (deftest "non-function pseudo-command is an error"
-    (error "SKIP (untranslated): non-function pseudo-command is an error"))
+    (assert-throws (fn () (eval-hs "on click log me then foo.bar + bar")))
+  )
 )
 
 ;; ── put (38 tests) ──