USING: html.parser kernel tools.test ;
IN: temporary
[
V{ T{ tag f "html" H{ } f f f } }
] [ "" parse-html ] unit-test
[
V{ T{ tag f "html" H{ } f f t } }
] [ "" parse-html ] unit-test
[
V{ T{ tag f "a" H{ { "href" "http://factorcode.org/" } } f f f } }
] [ "" parse-html ] unit-test
[
V{ T{ tag f "a" H{ { "href" "http://factorcode.org/" } } f f f } }
] [ "" parse-html ] unit-test
[
V{
T{
tag
f
"a"
H{ { "baz" "\"quux\"" } { "foo" "bar's" } }
f
f
f
}
}
] [ "" parse-html ] unit-test
[
V{
T{ tag f "a"
H{
{ "a" "pirsqd" }
{ "foo" "bar" }
{ "href" "http://factorcode.org/" }
{ "baz" "quux" }
} f f f }
}
] [ "" parse-html ] unit-test
[
V{
T{ tag f "html" H{ } f f f }
T{ tag f "head" H{ } f f f }
T{ tag f "head" H{ } f f t }
T{ tag f "html" H{ } f f t }
}
] [ "Spagna