use strict; use Test::Base; use Web::Scraper; plan tests => 1 * blocks; filters { selector => 'chomp', expected => 'chomp', }; run { my $block = shift; my $s = Web::Scraper->define(sub { process $block->selector, text => 'TEXT'; result 'text'; }); my $text = $s->scrape($block->html); is $text, $block->expected, $block->name; }; __DATA__ === --- html