require 'test/unit'
require 'htree'
class TestOutput < Test::Unit::TestCase
def gen(t, meth=:output, *rest)
encoder = HTree::Encoder.new('US-ASCII', 'US-ASCII')
t.__send__(meth, *(rest + [encoder, HTree::DefaultContext]))
encoder.finish
end
def test_text
assert_equal('a&<>"b', gen(HTree::Text.new('a&<>"b')))
assert_equal("abc&def", gen(HTree::Text.new("abc&def")))
assert_equal('"\'&', gen(HTree::Text.new('"\'&')))
assert_equal('"\'<&>', gen(HTree::Text.new('"\'<&>')))
end
def test_text_attvalue
assert_equal('"a&<>"b"', gen(HTree::Text.new('a&<>"b'), :output_attvalue))
assert_equal('"abc"', gen(HTree::Text.new("abc"), :output_attvalue))
assert_equal('"""', gen(HTree::Text.new('"'), :output_attvalue))
end
def test_name
assert_equal('abc', gen(HTree::Name.parse_element_name('abc', HTree::DefaultContext)))
assert_equal('n', gen(HTree::Name.new(nil, 'u', 'n')))
assert_equal('p:n', gen(HTree::Name.new('p', 'u', 'n')))
assert_equal('n', gen(HTree::Name.new(nil, '', 'n')))
assert_equal('xmlns', gen(HTree::Name.new('xmlns', nil, nil)))
assert_equal('xmlns:n', gen(HTree::Name.new('xmlns', nil, 'n')))
end
def test_name_attribute
assert_equal('abc="a&<>"b"',
gen(HTree::Name.parse_element_name('abc', HTree::DefaultContext),
:output_attribute,
HTree::Text.new('a&<>"b')))
end
def test_doc
t = HTree::Doc.new(HTree::Elem.new('a'), HTree::Elem.new('b'))
assert_equal("", gen(t))
end
def test_elem
t = HTree::Elem.new('a', [])
assert_equal("", gen(t))
assert_equal("",
gen(HTree::Elem.new!(HTree::STag.new('b'))))
assert_equal("",
gen(HTree::Elem.new!(HTree::STag.new('b'), [])))
assert_equal("",
gen(HTree::Elem.new!(HTree::STag.new('a'), [
HTree::Elem.new!(HTree::STag.new('b')),
HTree::Elem.new!(HTree::STag.new('c')),
HTree::Elem.new!(HTree::STag.new('d'))
])))
end
def test_elem_empty
t = HTree::Elem.new('a')
assert_equal("", gen(t))
end
def test_stag
assert_equal("",
gen(HTree::STag.new("name"), :output_stag))
assert_equal("",
gen(HTree::STag.new("name"), :output_emptytag))
assert_equal("",
gen(HTree::STag.new("name"), :output_etag))
assert_equal("",
gen(HTree::STag.new("name", [["a", "b"]]), :output_emptytag))
assert_equal("",
gen(HTree::STag.new("name", [['a', '<"\'>']]), :output_emptytag))
assert_equal("",
gen(HTree::STag.new("ppp:nnn", [["xmlns", "uuu\"b"]]), :output_emptytag))
end
def test_xmldecl
t = HTree::XMLDecl.new('1.0', 'US-ASCII')
assert_equal('', gen(t))
assert_equal('',
gen(t, :output_prolog_xmldecl))
end
def test_doctype
t = HTree::DocType.new('html',
'-//W3C//DTD HTML 4.01//EN',
'http://www.w3.org/TR/html4/strict.dtd')
assert_equal('', gen(t))
end
def test_procins
t = HTree::ProcIns.new('xml-stylesheet', 'type="text/xml" href="#style1"')
assert_equal('', gen(t))
t = HTree::ProcIns.new('x', nil)
assert_equal('', gen(t))
end
def test_comment
t = HTree::Comment.new('xxx')
assert_equal('', gen(t))
end
end
class TestHTMLOutput < Test::Unit::TestCase
def test_top_xmlns
assert_equal("aaa", HTree("aaa").display_html(""))
end
def test_script
assert_equal("a < b",
HTree("