view release on metacpan or  search on metacpan

t/01_fillin.t  view on Meta::CPAN

use strict;
use CGI;
use Test::More tests => 6;
use Template;

my $query = CGI->new({ foo => 'bar', bar => 'baz' });
my $tt = Template->new;

local $/ = '';
while (<DATA>) {
    my($test, $expect) = /^--test--\n(.*?)\n--expect--\n(.*?)\n$/s;
    my @expect = split /\n/, $expect;
    $tt->process(\$test, { query => $query }, \my $out);
    like $out, qr/$_/ for @expect;
}

__END__
--test--
[% USE FillInForm -%]