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 { } [ "" "red" set-value ] unit-test { "<jimmy>" } [ [ "red" label render ] with-string-writer ] unit-test { "\" name=\"red\" type=\"hidden\"/>" } [ [ "red" hidden render ] with-string-writer ] unit-test { "\" name=\"red\" type=\"hidden\"/>" } [ [ "red" hidden render ] with-string-writer ] unit-test { } [ "'jimmy'" "red" set-value ] unit-test { "" } [ [ "red" 5 >>size render ] with-string-writer ] unit-test { "" } [ [ "red" 5 >>size render ] with-string-writer ] unit-test { } [ [ "green"

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&bar\"><Link Title></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