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

#!/usr/bin/perl
use t::lib tests => 1;

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 = HTML::TreeBuilder->new_from_content ($html) ;
my $found = $t1->look_down(id => 'findme');

my $pos = join ' ', $found->position;
is $pos, '-1 1 0 1 2';
Commit	Line	Data
aa016126 MG	1	#!/usr/bin/perl
aa016126 MG	2	use t::lib tests => 1;
67e78ff2	3
	4	my $html =<<'EOHTML';
	5	<html>
	6	<head>
	7	</head>
	8	<body>
	9	<table>
	10	<tr>
	11	<td>a <td>a <td>a <td>a
	12	</tr>
	13	<tr>
	14	<td>a <td>a <td id=findme>a <td>a
	15	</tr>
	16	</table>
	17	</body>
	18	</html>
	19	EOHTML
	20
aa016126 MG	21	my $t1 = HTML::TreeBuilder->new_from_content ($html) ;
aa016126 MG	22	my $found = $t1->look_down(id => 'findme');
67e78ff2	23
aa016126 MG	24	my $pos = join ' ', $found->position;
aa016126 MG	25	is $pos, '-1 1 0 1 2';