[html-element-library.git] / t / position.t

use strict;
use Test::More qw(no_plan);

use HTML::TreeBuilder;
use HTML::Element::Library;

my $html =<<'EOHTML';
<html>
<head>
</head>
<body>
<table>
<tr>
  <td>a  <td>a  <td>a  <td>a
</tr>
<tr>
  <td>a  <td>a  <td id=findme>a  <td>a
</tr>
</table>
</body>
</html>
EOHTML

my $t1;
my $lol;

$t1 = HTML::TreeBuilder->new_from_content ( $html ) ;

my $found= $t1->look_down(id => 'findme');


my @found = $found->position;
#warn "@found";

is("@found", '-1 1 0 1 2');
Commit	Line	Data
67e78ff2	1	use strict;
	2	use Test::More qw(no_plan);
	3
	4	use HTML::TreeBuilder;
	5	use HTML::Element::Library;
	6
	7	my $html =<<'EOHTML';
	8	<html>
	9	<head>
	10	</head>
	11	<body>
	12	<table>
	13	<tr>
	14	<td>a <td>a <td>a <td>a
	15	</tr>
	16	<tr>
	17	<td>a <td>a <td id=findme>a <td>a
	18	</tr>
	19	</table>
	20	</body>
	21	</html>
	22	EOHTML
	23
	24	my $t1;
	25	my $lol;
	26
	27	$t1 = HTML::TreeBuilder->new_from_content ( $html ) ;
	28
	29	my $found= $t1->look_down(id => 'findme');
	30
	31
	32	my @found = $found->position;
	33	#warn "@found";
	34
	35	is("@found", '-1 1 0 1 2');
	36
	37