use strict;
use Test::Base;
use Web::Scraper;
plan tests => 1 * blocks;
filters {
expected => 'yaml',
want => 'eval',
};
run {
my $block = shift;
my $s = scraper {
process 'a', 'want[]' => $block->want;
result 'want';
};
my $want = $s->scrape('<a>foo</a><a>bar</a>');
is_deeply $want, $block->expected, $block->name;
};
__DATA__
=== tr
--- want
['TEXT', sub { tr/a-z/b-za/ }]
--- expected
- gpp
- cbs