use HTML::TableExtract;
use IO::All;
-use Test::Builder;
+use Test::More;
BEGIN {
package Test::Builder;
browser_url => $self->{browser_url},
);
$src->run_test_table($rows);
+ done_testing;
}
my $te = HTML::TableExtract->new;
$te->parse($html);
my $table = ($te->tables)[0];
my @rows = map {
- [ map { $_ eq "\240" ? () : $_ } @$_ ]
- } $table->rows;
+ [ map { (!defined $_ or $_ eq "\240") ? () : $_ } @$_ ]
+ } grep { defined $_->[1] } $table->rows;
return \@rows;
}
browser_url => 'http://www.google.com',
browser => shift,
});
-$s->run_tests_for('basic.html');
+$s->run_tests_for(shift);