Fix testing pages: move read-spec-file into :data for client routing
read-spec-file is a server-only page helper. When the client router tried to evaluate :content, it couldn't find the function. Move all file reads into the :data expression (evaluated server-side) so :content only references data bindings. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -529,11 +529,11 @@
|
||||
:data (run-modular-tests "all")
|
||||
:content (~testing-overview-content
|
||||
:server-results server-results
|
||||
:framework-source (read-spec-file "test-framework.sx")
|
||||
:eval-source (read-spec-file "test-eval.sx")
|
||||
:parser-source (read-spec-file "test-parser.sx")
|
||||
:router-source (read-spec-file "test-router.sx")
|
||||
:render-source (read-spec-file "test-render.sx")))
|
||||
:framework-source framework-source
|
||||
:eval-source eval-source
|
||||
:parser-source parser-source
|
||||
:router-source router-source
|
||||
:render-source render-source))
|
||||
|
||||
(defpage testing-page
|
||||
:path "/testing/<slug>"
|
||||
@@ -556,29 +556,29 @@
|
||||
:spec-name "eval"
|
||||
:spec-title "Evaluator Tests"
|
||||
:spec-desc "81 tests covering the core evaluator and all primitives — literals, arithmetic, comparison, strings, lists, dicts, predicates, special forms, lambdas, higher-order functions, components, macros, threading, and edge cases."
|
||||
:spec-source (read-spec-file "test-eval.sx")
|
||||
:framework-source (read-spec-file "test-framework.sx")
|
||||
:spec-source spec-source
|
||||
:framework-source framework-source
|
||||
:server-results server-results)
|
||||
"parser" (~testing-spec-content
|
||||
:spec-name "parser"
|
||||
:spec-title "Parser Tests"
|
||||
:spec-desc "39 tests covering tokenization and parsing — integers, floats, strings, escape sequences, booleans, nil, keywords, symbols, lists, dicts, whitespace, comments, quote sugar, serialization, and round-trips."
|
||||
:spec-source (read-spec-file "test-parser.sx")
|
||||
:framework-source (read-spec-file "test-framework.sx")
|
||||
:spec-source spec-source
|
||||
:framework-source framework-source
|
||||
:server-results server-results)
|
||||
"router" (~testing-spec-content
|
||||
:spec-name "router"
|
||||
:spec-title "Router Tests"
|
||||
:spec-desc "18 tests covering client-side route matching — path splitting, pattern parsing, segment matching, parameter extraction, and route table search."
|
||||
:spec-source (read-spec-file "test-router.sx")
|
||||
:framework-source (read-spec-file "test-framework.sx")
|
||||
:spec-source spec-source
|
||||
:framework-source framework-source
|
||||
:server-results server-results)
|
||||
"render" (~testing-spec-content
|
||||
:spec-name "render"
|
||||
:spec-title "Renderer Tests"
|
||||
:spec-desc "23 tests covering HTML rendering — elements, attributes, void elements, boolean attributes, fragments, escaping, control flow, and component rendering."
|
||||
:spec-source (read-spec-file "test-render.sx")
|
||||
:framework-source (read-spec-file "test-framework.sx")
|
||||
:spec-source spec-source
|
||||
:framework-source framework-source
|
||||
:server-results server-results)
|
||||
"runners" (~testing-runners-content)
|
||||
:else (~testing-overview-content
|
||||
|
||||
Reference in New Issue
Block a user