Test output for html-utils [ok]
Testing time: 0s
/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null
-- testing html-utils --------------------------------------------------------
-- testing html-utils strings --------------------------------------------
(combo-box "test" '(1 2 3)) ...................................... [ PASS]
(combo-box "test" '((1 1) (2 2) (3 3))) .......................... [ PASS]
(combo-box "test" '((1 . 1) (2 . 2) (3 . 3))) .................... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3))) ....................... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) default: 1) ............ [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t) ....... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t defau... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t defau... [ PASS]
(hidden-input "test") ............................................ [ PASS]
(hidden-input "test" 0) .......................................... [ PASS]
(hidden-input '((test . 0) (test2 . 1))) ......................... [ PASS]
(itemize '(a b c)) ............................................... [ PASS]
(itemize '(a b c) list-id: "test") ............................... [ PASS]
(enumerate '(a b c)) ............................................. [ PASS]
(enumerate '(a b c) list-id: "test") ............................. [ PASS]
(tabularize '((1 2 3) (4 5 6))) .................................. [ PASS]
(tabularize '((1 2 3) (4 5 6)) table-id: "test") ................. [ PASS]
(tabularize '((1 2 3) (4 5 6)) table-id: "test" even-row-class:... [ PASS]
(tabularize '((1 2 3) (4 5 6)) header: '(a b c)) ................. [ PASS]
(html-page "") ................................................... [ PASS]
(html-page "" doctype: "<test-doctype>") ......................... [ PASS]
(html-page "" title: "title") .................................... [ PASS]
(html-page "" title: "title" charset: "UTF-8") ................... [ PASS]
(html-page "" title: "title" headers: (<script> type: "text/jav... [ PASS]
(html-page "" title: "title" headers: (<script> type: "text/jav... [ PASS]
(html-page "" title: "title" headers: (<script> type: "text/jav... [ PASS]
(html-page "" title: "title" headers: (<script> type: "text/jav... [ PASS]
...page .......................................................... [ PASS]
28 tests completed in 0.016 seconds.
28 out of 28 (100%) tests passed.
-- done testing html-utils strings ---------------------------------------
-- testing html-utils SXML -----------------------------------------------
(tabularize '(("a"))) ............................................ [ PASS]
(tabularize '((1 2 3) (4 5 6))) .................................. [ PASS]
(tabularize '((1 2 3) (4 5 6)) table-id: "test") ................. [ PASS]
(tabularize '((1 2 3) (4 5 6)) table-id: "test" even-row-class:... [ PASS]
(tabularize '((1 2 3) (4 5 6)) header: '(a b c)) ................. [ PASS]
(itemize '(1 2)) ................................................. [ PASS]
(itemize '(1 2) list-id: "foo") .................................. [ PASS]
(itemize `(1 2 ,(itemize '(3 4)))) ............................... [ PASS]
(itemize (map (lambda (item) (<button> id: (car item) (cdr item... [ PASS]
(html-page '()) .................................................. [ PASS]
(html-page "foo" title: "title") ................................. [ PASS]
(html-page '() doctype: "<test-doctype>") ........................ [ PASS]
(html-page '() title: "title") ................................... [ PASS]
(html-page '() title: "title" charset: "UTF-8") .................. [ PASS]
(html-page '() title: "title" headers: (<script> type: "text/ja... [ PASS]
(html-page '() title: "title" headers: (<script> type: "text/ja... [ PASS]
(html-page '() title: "title" headers: (<script> type: "text/ja... [ PASS]
(html-page '() title: "title" headers: (<script> type: "text/ja... [ PASS]
...page .......................................................... [ PASS]
(combo-box "test" '(1 2 3)) ...................................... [ PASS]
(combo-box "test" '((1 . 1) (2 . 2) (3 . 3))) .................... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3))) ....................... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) default: "1") .......... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t) ....... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t defau... [ PASS]
(combo-box "test" '(#(1 1) #(2 2) #(3 3)) first-empty: #t defau... [ PASS]
(hidden-input "test") ............................................ [ PASS]
(hidden-input "test" 0) .......................................... [ PASS]
(hidden-input '((test . 0) (test2 . 1))) ......................... [ PASS]
29 tests completed in 0.02 seconds.
29 out of 29 (100%) tests passed.
-- done testing html-utils SXML ------------------------------------------
2 subgroups completed in 0.037 seconds.
2 out of 2 (100%) subgroups passed.
-- done testing html-utils ---------------------------------------------------