factor/basis/html/components/components-tests.factor

USING: tools.test kernel io.streams.string
io.streams.null accessors inspector html.streams
html.components html.forms namespaces
xml.writer xml.syntax ;
FROM: html.components => inspector ;
IN: html.components.tests

{ } [ begin-form ] unit-test

{ } [ 3 "hi" set-value ] unit-test

{ 3 } [ "hi" value ] unit-test

TUPLE: color red green blue ;

{ } [ 1 2 3 color boa from-object ] unit-test

{ 1 } [ "red" value ] unit-test

{ } [ "jimmy" "red" set-value ] unit-test

{ "jimmy" } [
    [
        "red" label render
    ] with-string-writer
] unit-test

{ } [ "<jimmy>" "red" set-value ] unit-test

{ "&lt;jimmy&gt;" } [
    [
        "red" label render
    ] with-string-writer
] unit-test

{ "<input value=\"&lt;jimmy>\" name=\"red\" type=\"hidden\"/>" } [
    [
        "red" hidden render
    ] with-string-writer
] unit-test
{ "<input value=\"&lt;jimmy>\" name=\"red\" type=\"hidden\"/>" } [
    [
        "red" hidden render
    ] with-string-writer
] unit-test

{ } [ "'jimmy'" "red" set-value ] unit-test

{ "<input value=\"&apos;jimmy&apos;\" name=\"red\" size=\"5\" type=\"text\"/>" } [
    [
        "red" <field> 5 >>size render
    ] with-string-writer
] unit-test

{ "<input value=\"\" name=\"red\" size=\"5\" type=\"password\"/>" } [
    [
        "red" <password> 5 >>size render
    ] with-string-writer
] unit-test

{ } [
    [
        "green" <textarea> render
    ] with-null-writer
] unit-test

{ } [
    [
        "green" <textarea> 25 >>rows 30 >>cols render
    ] with-null-writer
] unit-test

{ } [ begin-form ] unit-test

{ } [ "new york" "city1" set-value ] unit-test

{ } [ { "new york" "los angeles" "chicago" } "cities" set-value ] unit-test

{ } [
    [
        "city1"
        <choice>
            "cities" >>choices
        render
    ] with-null-writer
] unit-test

{ } [ { "los angeles" "new york" } "city2" set-value ] unit-test

{ } [
    [
        "city2"
        <choice>
            "cities" >>choices
            t >>multiple
        render
    ] with-null-writer
] unit-test

{ } [
    [
        "city2"
        <choice>
            "cities" >>choices
            t >>multiple
            5 >>size
        render
    ] with-null-writer
] unit-test

{ } [ begin-form ] unit-test

{ } [ t "delivery" set-value ] unit-test

{ "<input type=\"checkbox\" checked=\"true\" name=\"delivery\">Delivery</input>" } [
    [
        "delivery"
        <checkbox>
            "Delivery" >>label
        render
    ] with-string-writer
] unit-test

{ } [ f "delivery" set-value ] unit-test

{ "<input type=\"checkbox\" name=\"delivery\">Delivery</input>" } [
    [
        "delivery"
        <checkbox>
            "Delivery" >>label
        render
    ] with-string-writer
] unit-test

SINGLETON: link-test

M: link-test link-title drop "<Link Title>" ;

M: link-test link-href drop "http://www.apple.com/foo&bar" ;

{ } [ link-test "link" set-value ] unit-test

{ "<a href=\"http://www.apple.com/foo&amp;bar\">&lt;Link Title&gt;</a>" } [
    [ "link" link new render ] with-string-writer
] unit-test

{ } [
    "<html>arbitrary <b>markup</b> for the win!</html>" "html" set-value
] unit-test

{ "<html>arbitrary <b>markup</b> for the win!</html>" } [
    [ "html" html render ] with-string-writer
] unit-test

{ } [ "int x = 4;" "code" set-value ] unit-test

{ } [ "java" "mode" set-value ] unit-test

{ "<span class=\"KEYWORD3\">int</span> x <span class=\"OPERATOR\">=</span> <span class=\"DIGIT\">4</span>;" } [
    [ "code" <code> "mode" >>mode render ] with-string-writer
] unit-test

{ } [ "-foo\n-bar" "farkup" set-value ] unit-test

{ "<ul><li>foo</li><li>bar</li></ul>" } [
    [ "farkup" T{ farkup } render ] with-string-writer
] unit-test

{ } [ { 1 2 3 } "object" set-value ] unit-test

{ t } [
    [ "object" inspector render ] with-string-writer
    "object" value [ describe ] with-html-writer xml>string
    =
] unit-test

{ } [ begin-form ] unit-test

{ } [
    "factor" [
        "concatenative" "model" set-value
    ] nest-form
] unit-test

{
    H{
        {
            "factor"
            T{ form f V{ } H{ { "model" "concatenative" } } }
        }
    }
} [ values ] unit-test

{ } [ "error" "blah" <validation-error-state> "error" set-value ] unit-test

{ } [
    "error" hidden render
] unit-test

! Test xml in html components
{ } [
    [XML <foo/> XML] "xmltest" set-value
] unit-test

{ "<foo/>" } [
    [
        "xmltest" html render
    ] with-string-writer
] unit-test
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00			`USING: tools.test kernel io.streams.string`
			`io.streams.null accessors inspector html.streams`
Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00			`html.components html.forms namespaces`
html.components: For the t:html tag, only wrap strings in unescaped so that other objects can render. 2011-11-06 15:15:00 -05:00			`xml.writer xml.syntax ;`
Update documentation for stricter vocabulary search path semantics 2009-05-16 01:29:21 -04:00			`FROM: html.components => inspector ;`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`IN: html.components.tests`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ begin-form ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ 3 "hi" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ 3 } [ "hi" value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
			`TUPLE: color red green blue ;`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ 1 2 3 color boa from-object ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ 1 } [ "red" value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "jimmy" "red" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "jimmy" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"red" label render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "<jimmy>" "red" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<jimmy>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"red" label render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input value=\"<jimmy>\" name=\"red\" type=\"hidden\"/>" } [`
Fix validation error rendering 2009-01-31 22:56:39 -05:00			`[`
			`"red" hidden render`
			`] with-string-writer`
			`] unit-test`
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input value=\"<jimmy>\" name=\"red\" type=\"hidden\"/>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"red" hidden render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "'jimmy'" "red" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input value=\"'jimmy'\" name=\"red\" size=\"5\" type=\"text\"/>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"red" <field> 5 >>size render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input value=\"\" name=\"red\" size=\"5\" type=\"password\"/>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"red" <password> 5 >>size render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"green" <textarea> render`
			`] with-null-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
Move templates to html vocabulary 2008-05-23 20:16:21 -04:00			`"green" <textarea> 25 >>rows 30 >>cols render`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`] with-null-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ begin-form ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "new york" "city1" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ { "new york" "los angeles" "chicago" } "cities" set-value ] unit-test`
Move templates to html vocabulary 2008-05-23 20:16:21 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"city1"`
			`<choice>`
Move templates to html vocabulary 2008-05-23 20:16:21 -04:00			`"cities" >>choices`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`render`
			`] with-null-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ { "los angeles" "new york" } "city2" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"city2"`
			`<choice>`
Move templates to html vocabulary 2008-05-23 20:16:21 -04:00			`"cities" >>choices`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`t >>multiple`
			`render`
			`] with-null-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"city2"`
			`<choice>`
Move templates to html vocabulary 2008-05-23 20:16:21 -04:00			`"cities" >>choices`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`t >>multiple`
			`5 >>size`
			`render`
			`] with-null-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ begin-form ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ t "delivery" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input type=\"checkbox\" checked=\"true\" name=\"delivery\">Delivery</input>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"delivery"`
			`<checkbox>`
			`"Delivery" >>label`
			`render`
			`] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ f "delivery" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<input type=\"checkbox\" name=\"delivery\">Delivery</input>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[`
			`"delivery"`
			`<checkbox>`
			`"Delivery" >>label`
			`render`
			`] with-string-writer`
			`] unit-test`

			`SINGLETON: link-test`

			`M: link-test link-title drop "<Link Title>" ;`

			`M: link-test link-href drop "http://www.apple.com/foo&bar" ;`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ link-test "link" set-value ] unit-test`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<a href=\"http://www.apple.com/foo&bar\"><Link Title></a>" } [`
Fixing bugs, cleaning up 2008-09-29 20:48:12 -04:00			`[ "link" link new render ] with-string-writer`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`"<html>arbitrary <b>markup</b> for the win!</html>" "html" set-value`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<html>arbitrary <b>markup</b> for the win!</html>" } [`
Move HTML components to html.components, refactor 2008-05-23 18:33:31 -04:00			`[ "html" html render ] with-string-writer`
			`] unit-test`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "int x = 4;" "code" set-value ] unit-test`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "java" "mode" set-value ] unit-test`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<span class=\"KEYWORD3\">int</span> x <span class=\"OPERATOR\">=</span> <span class=\"DIGIT\">4</span>;" } [`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00			`[ "code" <code> "mode" >>mode render ] with-string-writer`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "-foo\n-bar" "farkup" set-value ] unit-test`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<ul><li>foo</li><li>bar</li></ul>" } [`
Fix test failure 2008-06-14 05:18:29 -04:00			`[ "farkup" T{ farkup } render ] with-string-writer`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ { 1 2 3 } "object" set-value ] unit-test`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ t } [`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00			`[ "object" inspector render ] with-string-writer`
Rewrite html.streams to use xml.literals 2009-01-31 21:44:17 -05:00			`"object" value [ describe ] with-html-writer xml>string`
Move farkup, code, inspector components to html.components 2008-05-23 23:32:39 -04:00			`=`
			`] unit-test`
Reworking validation 2008-05-26 01:47:27 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ begin-form ] unit-test`
Reworking validation 2008-05-26 01:47:27 -04:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Reworking validation 2008-05-26 01:47:27 -04:00			`"factor" [`
			`"concatenative" "model" set-value`
New html.forms abstraction fixes some problems; clean up some code 2008-06-15 03:38:12 -04:00			`] nest-form`
Reworking validation 2008-05-26 01:47:27 -04:00			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{`
New html.forms abstraction fixes some problems; clean up some code 2008-06-15 03:38:12 -04:00			`H{`
			`{`
			`"factor"`
			`T{ form f V{ } H{ { "model" "concatenative" } } }`
			`}`
			`}`
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`} [ values ] unit-test`
Fix validation error rendering 2009-01-31 22:56:39 -05:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [ "error" "blah" <validation-error-state> "error" set-value ] unit-test`
Fix validation error rendering 2009-01-31 22:56:39 -05:00
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
Fix validation error rendering 2009-01-31 22:56:39 -05:00			`"error" hidden render`
			`] unit-test`
html.components: For the t:html tag, only wrap strings in unescaped so that other objects can render. 2011-11-06 15:15:00 -05:00
			`! Test xml in html components`
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ } [`
html.components: For the t:html tag, only wrap strings in unescaped so that other objects can render. 2011-11-06 15:15:00 -05:00			`[XML <foo/> XML] "xmltest" set-value`
			`] unit-test`

factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test 2015-07-03 12:39:59 -04:00			`{ "<foo/>" } [`
html.components: For the t:html tag, only wrap strings in unescaped so that other objects can render. 2011-11-06 15:15:00 -05:00			`[`
			`"xmltest" html render`
			`] with-string-writer`
			`] unit-test`