USING: continuations xml xml.errors tools.test kernel arrays
xml.data quotations fry byte-arrays ;
IN: xml.errors.tests
: xml-error-test ( expected-error xml-string -- )
'[ _ string>xml ] swap '[ _ = ] must-fail-with ;
T{ no-entity f 1 10 "nbsp" } " " xml-error-test
T{ mismatched f 1 7 T{ name f "" "x" "" } T{ name f "" "y" "" } }
"" xml-error-test
T{ unclosed f 1 3 V{ T{ name f "" "x" "" } } } "" xml-error-test
T{ nonexist-ns f 1 5 "x" } "" xml-error-test
T{ unopened f 1 4 } "" xml-error-test
T{ not-yes/no f 1 41 "maybe" }
"" xml-error-test
T{ extra-attrs f 1 32 { T{ name f "" "foo" f } }
} "" xml-error-test
T{ bad-version f 1 28 "5 million" }
"" xml-error-test
T{ notags f } "" xml-error-test
T{ multitags } "" xml-error-test
T{ bad-prolog f 1 25 T{ prolog f "1.0" "UTF-8" f } }
"" xml-error-test
T{ capitalized-prolog f 1 6 "XmL" } ""
xml-error-test
T{ pre/post-content f "x" t } "x" xml-error-test
T{ versionless-prolog f 1 8 } "" xml-error-test
T{ unclosed-quote f 1 12 } "" xml-error-test
T{ text-w/]]> f 1 6 } "]]>" xml-error-test
T{ duplicate-attr f 1 21 T{ name { space "" } { main "this" } } V{ "a" "b" } } "" xml-error-test
T{ bad-cdata f 1 3 } "" xml-error-test
T{ bad-cdata f 1 7 } "" xml-error-test
T{ pre/post-content f "&" t } " " xml-error-test
T{ bad-doctype f 1 17 "a" } "" xml-error-test
T{ bad-doctype f 1 22 T{ opener { name T{ name f "" "foo" "" } } { attrs T{ attrs } } } } " ]>" xml-error-test
T{ disallowed-char f 1 4 1 } "\u000001" xml-error-test
T{ missing-close f 1 8 } "