File: realloc.t

package info (click to toggle)
libhtml-template-pro-perl 0.9524-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,512 kB
  • sloc: ansic: 1,841; perl: 1,474; yacc: 404; pascal: 118; makefile: 6
file content (16 lines) | stat: -rw-r--r-- 374 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/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")) ;
}