use Test::Base;

my $blocks = Test::Base->new;
$blocks->delimiters(qw(%%% ***))->filters('lower');

plan tests => 3 * $blocks->blocks;

$blocks->run(sub {
    my $block = shift;
    is $block->foo, $block->bar, $block->name;
});

$blocks->run_is('foo', 'bar');
$blocks->run_like('foo', qr{x});

sub lower { lc }

__DATA__
%%% Test
*** foo
xyz
*** bar
XYZ