You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
2.5 KiB
Ruby
61 lines
2.5 KiB
Ruby
19 years ago
|
require 'test/unit'
|
||
|
|
require 'htree/loc'
|
||
|
|
require 'htree/parse'
|
||
|
|
require 'htree/traverse'
|
||
|
|
|
||
|
|
class TestLoc < Test::Unit::TestCase
|
||
|
|
def test_make_loc
|
||
|
|
t = HTree.parse('<?xml version="1.0"?><!DOCTYPE root><root>a<?x y?><!-- c --></boo>')
|
||
|
|
assert_instance_of(HTree::Doc::Loc, t.make_loc)
|
||
|
|
assert_instance_of(HTree::XMLDecl::Loc, t.children[0].make_loc)
|
||
|
|
assert_instance_of(HTree::DocType::Loc, t.children[1].make_loc)
|
||
|
|
assert_instance_of(HTree::Elem::Loc, t.children[2].make_loc)
|
||
|
|
assert_instance_of(HTree::Text::Loc, t.children[2].children[0].make_loc)
|
||
|
|
assert_instance_of(HTree::ProcIns::Loc, t.children[2].children[1].make_loc)
|
||
|
|
assert_instance_of(HTree::Comment::Loc, t.children[2].children[2].make_loc)
|
||
|
|
assert_instance_of(HTree::BogusETag::Loc, t.children[2].children[3].make_loc)
|
||
|
|
assert_equal(nil, t.make_loc.parent)
|
||
|
|
assert_equal(nil, t.make_loc.index)
|
||
|
|
end
|
||
|
|
|
||
|
|
def test_get_subnode
|
||
|
|
t = HTree.parse('<?xml version="1.0"?><!DOCTYPE root><root>a<?x y?><!-- c --></boo>')
|
||
|
|
l = t.make_loc
|
||
|
|
assert_instance_of(HTree::Doc::Loc, l)
|
||
|
|
assert_instance_of(HTree::Location, l.get_subnode(-1))
|
||
|
|
assert_instance_of(HTree::XMLDecl::Loc, l.get_subnode(0))
|
||
|
|
assert_instance_of(HTree::DocType::Loc, l.get_subnode(1))
|
||
|
|
assert_instance_of(HTree::Elem::Loc, l2 = l.get_subnode(2))
|
||
|
|
assert_instance_of(HTree::Location, l.get_subnode(3))
|
||
|
|
assert_instance_of(HTree::Location, l2.get_subnode(-1))
|
||
|
|
assert_instance_of(HTree::Location, l2.get_subnode('attr'))
|
||
|
|
assert_instance_of(HTree::Text::Loc, l2.get_subnode(0))
|
||
|
|
assert_instance_of(HTree::ProcIns::Loc, l2.get_subnode(1))
|
||
|
|
assert_instance_of(HTree::Comment::Loc, l2.get_subnode(2))
|
||
|
|
assert_instance_of(HTree::BogusETag::Loc, l2.get_subnode(3))
|
||
|
|
assert_instance_of(HTree::Location, l2.get_subnode(4))
|
||
|
|
assert_same(l.get_subnode(0), l.get_subnode(0))
|
||
|
|
end
|
||
|
|
|
||
|
|
def test_find_loc_step
|
||
|
|
t = HTree.parse('<a><b>x<!---->y</a><c/><a/>')
|
||
|
|
assert_equal('a[1]', t.find_loc_step(0))
|
||
|
|
assert_equal('c', t.find_loc_step(1))
|
||
|
|
assert_equal('a[2]', t.find_loc_step(2))
|
||
|
|
t = t.children[0]
|
||
|
|
assert_equal('b', t.find_loc_step(0))
|
||
|
|
t = t.children[0]
|
||
|
|
assert_equal('text()[1]', t.find_loc_step(0))
|
||
|
|
assert_equal('comment()', t.find_loc_step(1))
|
||
|
|
assert_equal('text()[2]', t.find_loc_step(2))
|
||
|
|
end
|
||
|
|
|
||
|
|
def test_path
|
||
|
|
l = HTree.parse('<a><b>x</b><b/><a/>').make_loc
|
||
|
|
l2 = l.get_subnode(0, 0, 0)
|
||
|
|
assert_equal('doc()', l.path)
|
||
|
|
assert_equal('doc()/a/b[1]/text()', l2.path)
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|