use strict;
use Test::Base;
use Web::Scraper;
plan tests => 1 * blocks;
filters {
selector => 'chomp',
};
run {
my $block = shift;
my $ok;
eval {
my $s = scraper {
process $block->selector, sub { $ok = 1 };
};
$s->scrape(\"foo");
};
like $@, qr/look like/, $@;
};
__DATA__
===
--- selector
a/a
===
--- selector
//
===
--- selector
//[
===
--- selector
//a[