|
|
|
@@ -530,11 +530,11 @@
|
|
|
|
:data (run-modular-tests "all")
|
|
|
|
:data (run-modular-tests "all")
|
|
|
|
:content (~testing-overview-content
|
|
|
|
:content (~testing-overview-content
|
|
|
|
:server-results server-results
|
|
|
|
:server-results server-results
|
|
|
|
:framework-source (read-spec-file "test-framework.sx")
|
|
|
|
:framework-source framework-source
|
|
|
|
:eval-source (read-spec-file "test-eval.sx")
|
|
|
|
:eval-source eval-source
|
|
|
|
:parser-source (read-spec-file "test-parser.sx")
|
|
|
|
:parser-source parser-source
|
|
|
|
:router-source (read-spec-file "test-router.sx")
|
|
|
|
:router-source router-source
|
|
|
|
:render-source (read-spec-file "test-render.sx")))
|
|
|
|
:render-source render-source))
|
|
|
|
|
|
|
|
|
|
|
|
(defpage testing-page
|
|
|
|
(defpage testing-page
|
|
|
|
:path "/testing/<slug>"
|
|
|
|
:path "/testing/<slug>"
|
|
|
|
@@ -557,29 +557,29 @@
|
|
|
|
:spec-name "eval"
|
|
|
|
:spec-name "eval"
|
|
|
|
:spec-title "Evaluator Tests"
|
|
|
|
: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-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")
|
|
|
|
:spec-source spec-source
|
|
|
|
:framework-source (read-spec-file "test-framework.sx")
|
|
|
|
:framework-source framework-source
|
|
|
|
:server-results server-results)
|
|
|
|
:server-results server-results)
|
|
|
|
"parser" (~testing-spec-content
|
|
|
|
"parser" (~testing-spec-content
|
|
|
|
:spec-name "parser"
|
|
|
|
:spec-name "parser"
|
|
|
|
:spec-title "Parser Tests"
|
|
|
|
: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-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")
|
|
|
|
:spec-source spec-source
|
|
|
|
:framework-source (read-spec-file "test-framework.sx")
|
|
|
|
:framework-source framework-source
|
|
|
|
:server-results server-results)
|
|
|
|
:server-results server-results)
|
|
|
|
"router" (~testing-spec-content
|
|
|
|
"router" (~testing-spec-content
|
|
|
|
:spec-name "router"
|
|
|
|
:spec-name "router"
|
|
|
|
:spec-title "Router Tests"
|
|
|
|
: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-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")
|
|
|
|
:spec-source spec-source
|
|
|
|
:framework-source (read-spec-file "test-framework.sx")
|
|
|
|
:framework-source framework-source
|
|
|
|
:server-results server-results)
|
|
|
|
:server-results server-results)
|
|
|
|
"render" (~testing-spec-content
|
|
|
|
"render" (~testing-spec-content
|
|
|
|
:spec-name "render"
|
|
|
|
:spec-name "render"
|
|
|
|
:spec-title "Renderer Tests"
|
|
|
|
: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-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")
|
|
|
|
:spec-source spec-source
|
|
|
|
:framework-source (read-spec-file "test-framework.sx")
|
|
|
|
:framework-source framework-source
|
|
|
|
:server-results server-results)
|
|
|
|
:server-results server-results)
|
|
|
|
"runners" (~testing-runners-content)
|
|
|
|
"runners" (~testing-runners-content)
|
|
|
|
:else (~testing-overview-content
|
|
|
|
:else (~testing-overview-content
|
|
|
|
|