#!/usr/bin/perl -w
use Test;
BEGIN {
$tests=30;
plan tests => $tests;
}
use HTML::Template::Pro;
use vars qw/$test/;
my $mult=10;
my $t = HTML::Template::Pro->new( filename => 'templates-Pro/test_malloc.tmpl' , debug=>0);
for($x=25;$x<25+$tests*$mult;$x+=$mult) {
my $txt='xxxxxxxxxx'x$x;
$t->param('text' => $txt );
ok($t->output eq ($txt . "\n")) ;
}