+++ /dev/null
-#!/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';