1 USING: html.templates html.templates.chloe
2 tools.test io.streams.string kernel sequences ascii boxes
3 namespaces xml html.components
4 splitting unicode.categories furnace ;
5 IN: html.templates.chloe.tests
7 [ f ] [ f parse-query-attr ] unit-test
9 [ f ] [ "" parse-query-attr ] unit-test
11 [ H{ { "a" "b" } } ] [
17 [ H{ { "a" "b" } { "c" "d" } } ] [
21 "a,c" parse-query-attr
25 with-string-writer [ "\r\n\t" member? not ] filter
26 "?>" split1 nip ; inline
28 : test-template ( name -- template )
29 "resource:extra/html/templates/chloe/test/"
34 "test1" test-template call-template
38 [ "Blah blah" "Hello world" ] [
42 "test2" test-template call-template
48 [ "<html><head><title>Hello world</title></head><body>Blah blah</body></html>" ] [
51 "test2" test-template call-template
52 ] "test3" test-template with-boilerplate
60 "test4" test-template call-template
68 "test5" test-template call-template
72 [ ] [ blank-values ] unit-test
74 [ ] [ "A label" "label" set-value ] unit-test
78 M: link-test link-title drop "<Link Title>" ;
80 M: link-test link-href drop "http://www.apple.com/foo&bar" ;
82 [ ] [ link-test "link" set-value ] unit-test
84 [ ] [ "int x = 5;" "code" set-value ] unit-test
86 [ ] [ "c" "mode" set-value ] unit-test
88 [ ] [ { 1 2 3 } "inspector" set-value ] unit-test
90 [ ] [ "<p>a paragraph</p>" "html" set-value ] unit-test
92 [ ] [ "sheeple" "field" set-value ] unit-test
94 [ ] [ "a password" "password" set-value ] unit-test
96 [ ] [ "a\nb\nc" "textarea" set-value ] unit-test
98 [ ] [ "new york" "choice" set-value ] unit-test
100 [ ] [ { "new york" "detroit" "minneapolis" } "choices" set-value ] unit-test
104 "test8" test-template call-template
108 [ ] [ { 1 2 3 } "numbers" set-value ] unit-test
110 [ "<ul><li>1</li><li>2</li><li>3</li></ul>" ] [
112 "test7" test-template call-template
113 ] run-template [ blank? not ] filter
116 TUPLE: person first-name last-name ;
120 T{ person f "RBaxter" "Unknown" }
121 T{ person f "Doug" "Coleman" }
125 [ "<table><tr><td>RBaxter</td><td>Unknown</td></tr><tr><td>Doug</td><td>Coleman</td></tr></table>" ] [
127 "test8" test-template call-template
128 ] run-template [ blank? not ] filter
133 H{ { "first-name" "RBaxter" } { "last-name" "Unknown" } }
134 H{ { "first-name" "Doug" } { "last-name" "Coleman" } }
138 [ "<table><tr><td>RBaxter</td><td>Unknown</td></tr><tr><td>Doug</td><td>Coleman</td></tr></table>" ] [
140 "test8" test-template call-template
141 ] run-template [ blank? not ] filter
144 [ ] [ 1 "id" set-value ] unit-test
146 [ "<a name=\"1\">Hello</a>" ] [
148 "test9" test-template call-template