;; Testing section — SX tests SX across every host.
;; Modular test specs: eval, parser, router, render.
;; Each page shows spec source, runs server-side, offers browser-side run button.
;; ---------------------------------------------------------------------------
;; Overview page
;; ---------------------------------------------------------------------------
(defcomp (&key server-results framework-source eval-source parser-source router-source render-source deps-source engine-source)
  (~docs/page :title "Testing"
    (div (~tw :tokens "space-y-8")

      ;; Intro
      (div (~tw :tokens "space-y-4")
        (p (~tw :tokens "text-lg text-stone-600")
          "SX tests itself. Test specs are written in SX and executed by SX evaluators on every host. "
          "The same assertions run in Python, Node.js, and in the browser — from the same source files.")
        (p (~tw :tokens "text-stone-600")
          "The framework defines two macros ("
          (code (~tw :tokens "text-violet-700 text-sm") "deftest")
          " and "
          (code (~tw :tokens "text-violet-700 text-sm") "defsuite")
          ") and nine assertion helpers, all in SX. Each host provides only "
          (strong "five platform functions")
          " — everything else is pure SX."))

      ;; Architecture
      (div (~tw :tokens "space-y-3")
        (h2 (~tw :tokens "text-2xl font-semibold text-stone-800") "Architecture")
        (div (~tw :tokens "not-prose bg-stone-100 rounded-lg p-5 mx-auto max-w-3xl")
          (pre (~tw :tokens "text-sm leading-relaxed whitespace-pre-wrap break-words font-mono text-stone-700")
"test-framework.sx            Macros + assertion helpers (loaded first)
    |
    +-- test-eval.sx           81 tests: evaluator + primitives
    +-- test-parser.sx         39 tests: tokenizer, parser, serializer
    +-- test-router.sx         18 tests: route matching + param extraction
    +-- test-render.sx         23 tests: HTML rendering + components
    +-- test-deps.sx           33 tests: dependency analysis + IO detection
    +-- test-engine.sx         37 tests: trigger/swap/retry parsing

Runners:
    run.js                     Node.js — injects platform fns, runs specs
    run.py                     Python — injects platform fns, runs specs
    sx-test-runner.js          Browser — runs specs in this page

Platform functions (5 total):
    try-call (thunk)          -> {:ok true} | {:ok false :error \"msg\"}
    report-pass (name)        -> output pass
    report-fail (name error)  -> output fail
    push-suite (name)         -> push suite context
    pop-suite ()              -> pop suite context

Per-spec platform functions:
    parser:  sx-parse, sx-serialize, make-symbol, make-keyword, ...
    router:  (none — pure spec, uses bootstrapped functions)
    render:  render-html (wraps parse + render-to-html)
    deps:    test-env (returns current evaluation environment)
    engine:  (none — pure spec, uses bootstrapped functions)")))

      ;; Server results
      (when server-results
        (div (~tw :tokens "space-y-3")
          (h2 (~tw :tokens "text-2xl font-semibold text-stone-800") "Server: Python evaluator")
          (p (~tw :tokens "text-stone-600")
            "Ran all test specs when this page loaded — "
            (strong (str (get server-results "passed") "/" (get server-results "total") " passed"))
            " in " (str (get server-results "elapsed-ms")) "ms.")
          (pre (~tw :tokens "text-sm font-mono bg-stone-900 text-green-400 rounded-lg p-4 overflow-x-auto max-h-96 overflow-y-auto")
            (get server-results "output"))))

      ;; Browser test runner
      (div (~tw :tokens "space-y-3")
        (h2 (~tw :tokens "text-2xl font-semibold text-stone-800") "Browser: JavaScript evaluator")
        (p (~tw :tokens "text-stone-600")
          "Run all test specs in the browser using "
          (code (~tw :tokens "text-violet-700 text-sm") "sx-browser.js")
          ":")
        (div (~tw :tokens "flex items-center gap-4")
          (button :id "test-btn-all"
            (~tw :tokens "px-4 py-2 rounded-md bg-violet-600 text-white font-medium text-sm hover:bg-violet-700 cursor-pointer")
            :onclick "sxRunModularTests('all','test-output-all','test-btn-all')"
            "Run all tests"))
        (pre :id "test-output-all"
          (~tw :tokens "text-sm font-mono bg-stone-900 text-green-400 rounded-lg p-4 overflow-x-auto max-h-96 overflow-y-auto")
          :style "display:none"
          "")
        ;; Hidden: all spec sources for the browser runner
        (textarea :id "test-framework-source" :style "display:none" framework-source)
        (textarea :id "test-spec-eval" :style "display:none" eval-source)
        (textarea :id "test-spec-parser" :style "display:none" parser-source)
        (textarea :id "test-spec-router" :style "display:none" router-source)
        (textarea :id "test-spec-render" :style "display:none" render-source)
        (textarea :id "test-spec-deps" :style "display:none" deps-source)
        (textarea :id "test-spec-engine" :style "display:none" engine-source)
        (script :src (asset-url "/scripts/sx-test-runner.js")))

      ;; Test spec index
      (div (~tw :tokens "space-y-3")
        (h2 (~tw :tokens "text-2xl font-semibold text-stone-800") "Test specs")
        (div (~tw :tokens "grid grid-cols-1 md:grid-cols-2 gap-4")
          (a :href "/sx/(language.(test.eval))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Evaluator")
            (p (~tw :tokens "text-sm text-stone-500") "81 tests — literals, arithmetic, strings, lists, dicts, special forms, lambdas, components, macros")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-eval.sx"))
          (a :href "/sx/(language.(test.parser))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Parser")
            (p (~tw :tokens "text-sm text-stone-500") "39 tests — tokenization, parsing, escape sequences, quote sugar, serialization, round-trips")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-parser.sx"))
          (a :href "/sx/(language.(test.router))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Router")
            (p (~tw :tokens "text-sm text-stone-500") "18 tests — path splitting, pattern parsing, segment matching, parameter extraction")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-router.sx"))
          (a :href "/sx/(language.(test.render))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Renderer")
            (p (~tw :tokens "text-sm text-stone-500") "23 tests — elements, attributes, void elements, fragments, escaping, control flow, components")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-render.sx"))
          (a :href "/sx/(language.(test.deps))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Dependencies")
            (p (~tw :tokens "text-sm text-stone-500") "33 tests — scan-refs, transitive-deps, components-needed, IO detection, purity classification")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-deps.sx"))
          (a :href "/sx/(language.(test.engine))" (~tw :tokens "block rounded-lg border border-stone-200 p-5 hover:border-violet-300 hover:bg-violet-50 transition-colors")
            (h3 (~tw :tokens "font-semibold text-stone-800") "Engine")
            (p (~tw :tokens "text-sm text-stone-500") "37 tests — parse-time, trigger specs, swap specs, retry logic, param filtering")
            (p (~tw :tokens "text-xs text-violet-600 mt-1") "test-engine.sx"))))

      ;; What it proves
      (div (~tw :tokens "rounded-lg border border-blue-200 bg-blue-50 p-5 space-y-3")
        (h2 (~tw :tokens "text-lg font-semibold text-blue-900") "What this proves")
        (ol (~tw :tokens "list-decimal list-inside text-blue-800 space-y-2 text-sm")
          (li "Test specs are " (strong "written in SX") " and " (strong "executed by SX") " — no code generation")
          (li "The same tests run on " (strong "Python, Node.js, and in the browser") " from the same files")
          (li "Each host provides only " (strong "5 platform functions") " — everything else is pure SX")
          (li "Modular specs test each part independently — evaluator, parser, router, renderer")
          (li "Per-spec platform functions extend the 5-function contract for module-specific capabilities")
          (li "Platform divergences are " (strong "exposed by the tests") ", not hidden"))))))
