giles
4ef05f1a4e
New test suites for previously untested infrastructure: - lib/tests/test-stdlib.sx: 47 pure functions (equality, predicates, math, collections, strings) - web/tests/test-adapter-html.sx: HTML adapter (islands, lakes, marshes, components, kwargs) - web/tests/test-adapter-dom.sx: form predicates and constants - web/tests/test-boot-helpers.sx: callable? predicate - web/tests/test-page-helpers.sx: pure data transforms (spec explorer) - web/tests/test-layout.sx: layout component patterns (kwargs, children, nesting, conditionals) - web/tests/test-tw-layout.sx: tw-resolve-layout (display, flex, gap, position, z-index, etc.) Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
123 lines
3.6 KiB
Plaintext
123 lines
3.6 KiB
Plaintext
(defcomp ~tl-link (&key href label) (a :href href label))
|
|
|
|
(defcomp
|
|
~tl-badge
|
|
(&key href count)
|
|
(a :href href (span (if count count "0"))))
|
|
|
|
(defcomp
|
|
~tl-error
|
|
(&key errnum message image)
|
|
(div
|
|
:class "error"
|
|
(h1 errnum)
|
|
(p message)
|
|
(when image (img :src image))))
|
|
|
|
(defcomp ~tl-wrapper (&key class &rest children) (div :class class children))
|
|
|
|
(defcomp ~tl-inner (&key text) (span :class "inner" text))
|
|
|
|
(defcomp
|
|
~tl-outer
|
|
(&key label)
|
|
(div :class "outer" (~tl-inner :text label)))
|
|
|
|
(defcomp
|
|
~tl-toggle
|
|
(&key show-extra)
|
|
(div (p "always") (when show-extra (p "extra"))))
|
|
|
|
(defcomp ~tl-clear (&key id) (div :id id))
|
|
|
|
(defsuite
|
|
"layout-link-pattern"
|
|
(deftest
|
|
"renders anchor with href and label"
|
|
(let
|
|
((html (render-to-html (quote (~tl-link :href "/about" :label "About")) {})))
|
|
(assert-true (string-contains? html "/about"))
|
|
(assert-true (string-contains? html "About")))))
|
|
|
|
(defsuite
|
|
"layout-badge-pattern"
|
|
(deftest
|
|
"renders badge with count"
|
|
(let
|
|
((html (render-to-html (quote (~tl-badge :href "/cart" :count "3")) {})))
|
|
(assert-true (string-contains? html "3"))
|
|
(assert-true (string-contains? html "/cart"))))
|
|
(deftest
|
|
"renders default count when nil"
|
|
(let
|
|
((html (render-to-html (quote (~tl-badge :href "/cart")) {})))
|
|
(assert-true (string-contains? html "0")))))
|
|
|
|
(defsuite
|
|
"layout-error-pattern"
|
|
(deftest
|
|
"renders error with number and message"
|
|
(let
|
|
((html (render-to-html (quote (~tl-error :errnum "404" :message "Not Found")) {})))
|
|
(assert-true (string-contains? html "404"))
|
|
(assert-true (string-contains? html "Not Found"))))
|
|
(deftest
|
|
"renders with image when provided"
|
|
(let
|
|
((html (render-to-html (quote (~tl-error :errnum "500" :message "Error" :image "/err.png")) {})))
|
|
(assert-true (string-contains? html "500"))
|
|
(assert-true (string-contains? html "/err.png"))))
|
|
(deftest
|
|
"omits image when nil"
|
|
(let
|
|
((html (render-to-html (quote (~tl-error :errnum "404" :message "Missing")) {})))
|
|
(assert-false (string-contains? html "img")))))
|
|
|
|
(defsuite
|
|
"layout-children-pattern"
|
|
(deftest
|
|
"renders children inside wrapper"
|
|
(let
|
|
((html (render-to-html (quote (~tl-wrapper :class "box" (p "inner"))) {})))
|
|
(assert-true (string-contains? html "inner"))
|
|
(assert-true (string-contains? html "box"))))
|
|
(deftest
|
|
"renders multiple children"
|
|
(let
|
|
((html (render-to-html (quote (~tl-wrapper :class "section" (h2 "Title") (p "Body"))) {})))
|
|
(assert-true (string-contains? html "Title"))
|
|
(assert-true (string-contains? html "Body")))))
|
|
|
|
(defsuite
|
|
"layout-nesting-pattern"
|
|
(deftest
|
|
"nested component calls"
|
|
(let
|
|
((html (render-to-html (quote (~tl-outer :label "nested")) {})))
|
|
(assert-true (string-contains? html "nested"))
|
|
(assert-true (string-contains? html "inner"))
|
|
(assert-true (string-contains? html "outer")))))
|
|
|
|
(defsuite
|
|
"layout-conditional-pattern"
|
|
(deftest
|
|
"shows extra when true"
|
|
(let
|
|
((html (render-to-html (quote (~tl-toggle :show-extra true)) {})))
|
|
(assert-true (string-contains? html "always"))
|
|
(assert-true (string-contains? html "extra"))))
|
|
(deftest
|
|
"hides extra when false"
|
|
(let
|
|
((html (render-to-html (quote (~tl-toggle :show-extra false)) {})))
|
|
(assert-true (string-contains? html "always"))
|
|
(assert-false (string-contains? html "extra")))))
|
|
|
|
(defsuite
|
|
"layout-clear-pattern"
|
|
(deftest
|
|
"renders div with id"
|
|
(let
|
|
((html (render-to-html (quote (~tl-clear :id "sidebar")) {})))
|
|
(assert-true (string-contains? html "sidebar")))))
|