;; Demo tests for the hyperscript `call` gallery.
;; These prove the test-index wiring — more detailed tests can be added later.

(deftest
  gallery-call-loads
  :runner :playwright
  :url "/sx/(applications.(hyperscript.(gallery-control-call)))"
  (assert-text "h1,h2" :contains "call"))

(deftest
  gallery-call-has-cards
  :runner :playwright
  :url "/sx/(applications.(hyperscript.(gallery-control-call)))"
  (assert-count "[data-sx-island]" :gte 1))
