diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/test/html/component.scm | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
Diffstat (limited to 'tests/test/html/component.scm')
-rw-r--r-- | tests/test/html/component.scm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/test/html/component.scm b/tests/test/html/component.scm deleted file mode 100644 index a1fbdfbc..00000000 --- a/tests/test/html/component.scm +++ /dev/null @@ -1,36 +0,0 @@ -(define-module (test html caltable) - :use-module (srfi srfi-64) - :use-module (srfi srfi-64 test-error) - :use-module (srfi srfi-88) - :use-module (calp translation) - - :use-module (calp html components) - ) - -(test-equal - '(button (@ (class "btn") (onclick "onclick")) "Body") - (btn onclick: "onclick" "Body")) - -(test-equal "href button, without body" - '(a (@ (class "btn") (href "href"))) - (btn href: "href")) - -(test-error 'wrong-type-arg - (btn href: "a" onclick: "b")) - -(test-equal "btn no specifier, but class" - '(button (@ (class "btn test")) "body") - (btn class: '("test") "body")) - -;; tabset - -(test-equal '(link (@ (type "text/css") (rel "stylesheet") (href "style.css"))) - (include-css "style.css")) - -(test-equal - '(link (@ (type "text/css") (rel "stylesheet") (href "style.css") (class "test"))) - (include-css "style.css" '(class "test"))) - -(test-equal - '(link (@ (type "text/css") (rel "alternate stylesheet") (href "style.css"))) - (include-alt-css "style.css")) |