HS E36: RPC timeout tests (10, 11, 14) — 16/16 complete

All 16 socket tests now green.

Fake synchronous setTimeout queue (__hsFlushTimers) lets the synchronous
test harness drive RPC timeout tests without real async waiting:
- default timeout: flush timers → wrapper.pending emptied (rejected)
- noTimeout: flush timers → wrapper.pending still has entry (not rejected)
- timeout(n): flush timers → 50ms timer fires → pending emptied

_rpcDispatch handles "noTimeout"/"timeout" method names, returning
new proxy or timeout-factory function respectively.

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

spec/tests/test-hyperscript-behavioral.sx

@@ -11580,9 +11580,28 @@
         (assert (not (= (host-typeof (host-get rpc "toJSON")) "function"))))
       (assert (not (nil? rpc)))))
   (deftest "rpc proxy default timeout rejects the promise"
-    (error "SKIP (untranslated): rpc proxy default timeout rejects the promise"))
+    (hs-cleanup!)
+    (eval-hs "socket DefTOSocket ws://localhost/ws with timeout 50 end")
+    (let ((wrapper (host-get (host-global "window") "DefTOSocket")))
+      (let ((rpc (host-get wrapper "rpc")))
+        (do
+          (host-call rpc "neverReplies")
+          (let ((keys-before (host-call (host-global "Object") "keys" (host-get wrapper "pending"))))
+            (assert= (host-get keys-before "length") 1))
+          (host-call (host-global "__hsFlushTimers") "call")
+          (let ((keys-after (host-call (host-global "Object") "keys" (host-get wrapper "pending"))))
+            (assert= (host-get keys-after "length") 0))))))
   (deftest "rpc proxy noTimeout avoids timeout rejection"
-    (error "SKIP (untranslated): rpc proxy noTimeout avoids timeout rejection"))
+    (hs-cleanup!)
+    (eval-hs "socket NoTOSocket ws://localhost/ws with timeout 20 end")
+    (let ((wrapper (host-get (host-global "window") "NoTOSocket")))
+      (let ((rpc (host-get wrapper "rpc")))
+        (do
+          (let ((no-timeout (host-call rpc "noTimeout")))
+            (host-call no-timeout "slowCall" "x"))
+          (host-call (host-global "__hsFlushTimers") "call")
+          (let ((keys-after (host-call (host-global "Object") "keys" (host-get wrapper "pending"))))
+            (assert= (host-get keys-after "length") 1))))))
   (deftest "rpc proxy reply with throw rejects the promise"
     (hs-cleanup!)
     (eval-hs "socket RpcThrowSocket ws://localhost/ws end")
@@ -11618,7 +11637,19 @@
                     {:data (host-call (host-global "JSON") "stringify" resp)})))
               (assert (nil? (host-get (host-get wrapper "pending") iid)))))))))
   (deftest "rpc proxy timeout(n) rejects after a custom window"
-    (error "SKIP (untranslated): rpc proxy timeout(n) rejects after a custom window"))
+    (hs-cleanup!)
+    (eval-hs "socket CustomTOSocket ws://localhost/ws with timeout 60000 end")
+    (let ((wrapper (host-get (host-global "window") "CustomTOSocket")))
+      (let ((rpc (host-get wrapper "rpc")))
+        (do
+          (let ((timeout-fn (host-call rpc "timeout"))
+                (custom-proxy (host-call-fn timeout-fn (list 50))))
+            (host-call custom-proxy "willTimeOut"))
+          (let ((keys-before (host-call (host-global "Object") "keys" (host-get wrapper "pending"))))
+            (assert= (host-get keys-before "length") 1))
+          (host-call (host-global "__hsFlushTimers") "call")
+          (let ((keys-after (host-call (host-global "Object") "keys" (host-get wrapper "pending"))))
+            (assert= (host-get keys-after "length") 0))))))
   (deftest "rpc reconnects after the underlying socket closes"
     (hs-cleanup!)
     (host-set! (host-global "window") "__hs_ws_created" nil)