#!perl -T use strict; use warnings; use Test::More (1 ? (tests => 7) : 'no_plan'); use HTML::TreeBuilder::Select; my $tree = HTML::TreeBuilder->new; $tree->parse_content(<<_END_);

Entry 1
Entry 2
Empty
Entry 3

Empty
Entry 80
Entry 81

_END_ my @elements = $tree->select("div#1 ul.c li.a"); cmp_ok(scalar @elements, "==", 3); cmp_ok($elements[0]->as_text, "eq", "Entry 1"); cmp_ok($elements[1]->as_text, "eq", "Entry 2"); cmp_ok($elements[2]->as_text, "eq", "Entry 3"); @elements = $tree->select("div#1 ul.d li"); cmp_ok($elements[0]->as_text, "eq", "Empty"); cmp_ok($elements[1]->as_text, "eq", "Entry 80"); cmp_ok($elements[2]->as_text, "eq", "Entry 81");