FM / t

/home/.cpan/build/Text-Template-1.61-0/t/

/home/.cpan/build/Text-Template-1.61-0/t

Name	Size	Mode	Actions
author-pod-syntax.t	300	0644	edit dl rm
author-signature.t	431	0644	edit dl rm
basic.t	5314	0755	edit dl rm
broken.t	1611	0755	edit dl rm
delimiters.t	2803	0755	edit dl rm
error.t	808	0755	edit dl rm
exported.t	1861	0755	edit dl rm
hash.t	2682	0755	edit dl rm
inline-comment.t	322	0755	edit dl rm
nested-tags.t	566	0755	edit dl rm
ofh.t	665	0755	edit dl rm
out.t	1086	0755	edit dl rm
prepend.t	1927	0755	edit dl rm
preprocess.t	1285	0755	edit dl rm
rt29928.t	553	0755	edit dl rm
safe.t	3832	0755	edit dl rm
safe2.t	2568	0755	edit dl rm
safe3.t	1935	0755	edit dl rm
strict.t	1264	0755	edit dl rm
taint.t	3431	0750	edit dl rm
template-encoding.t	944	0755	edit dl rm
warnings.t	1282	0755	edit dl rm

Edit: /home/.cpan/build/Text-Template-1.61-0/t/preprocess.t (1285B)

#!perl
#
# Tests for PREPROCESSOR features
# These tests first appeared in version 1.25.

use strict;
use warnings;
use Test::More tests => 9;
use File::Temp;

use_ok 'Text::Template::Preprocess' or exit 1;

my $tmpfile = File::Temp->new;
my $TMPFILE = $tmpfile->filename;

my $py = sub { tr/x/y/ };
my $pz = sub { tr/x/z/ };

my $t    = 'xxx The value of $x is {$x}';
my $outx = 'xxx The value of $x is 119';
my $outy = 'yyy The value of $y is 23';
my $outz = 'zzz The value of $z is 5';
open my $tfh, '>', $TMPFILE or die "Couldn't open test file: $!; aborting";
print $tfh $t;
close $tfh;

my @result = ($outx, $outy, $outz, $outz);
for my $trial (1, 0) {
    for my $test (0 .. 3) {
        my $tmpl;
        if ($trial == 0) {
            $tmpl = Text::Template::Preprocess->new(TYPE => 'STRING', SOURCE => $t) or die;
        }
        else {
            open $tfh, '<', $TMPFILE or die "Couldn't open test file: $!; aborting";
            $tmpl = Text::Template::Preprocess->new(TYPE => 'FILEHANDLE', SOURCE => $tfh) or die;
        }
        $tmpl->preprocessor($py) if ($test & 1) == 1;
        my @args = ((($test & 2) == 2) ? (PREPROCESSOR => $pz) : ());
        my $o = $tmpl->fill_in(@args, HASH => { x => 119, 'y' => 23, z => 5 });
        is $o, $result[$test];
    }
}

#!perl # # Tests for PREPROCESSOR features # These tests first appeared in version 1.25. use strict; use warnings; use Test::More tests => 9; use File::Temp; use_ok 'Text::Template::Preprocess' or exit 1; my $tmpfile = File::Temp->new; my $TMPFILE = $tmpfile->filename; my $py = sub { tr/x/y/ }; my $pz = sub { tr/x/z/ }; my $t = 'xxx The value of $x is {$x}'; my $outx = 'xxx The value of $x is 119'; my $outy = 'yyy The value of $y is 23'; my $outz = 'zzz The value of $z is 5'; open my $tfh, '>', $TMPFILE or die "Couldn't open test file: $!; aborting"; print $tfh $t; close $tfh; my @result = ($outx, $outy, $outz, $outz); for my $trial (1, 0) { for my $test (0 .. 3) { my $tmpl; if ($trial == 0) { $tmpl = Text::Template::Preprocess->new(TYPE => 'STRING', SOURCE => $t) or die; } else { open $tfh, '<', $TMPFILE or die "Couldn't open test file: $!; aborting"; $tmpl = Text::Template::Preprocess->new(TYPE => 'FILEHANDLE', SOURCE => $tfh) or die; } $tmpl->preprocessor($py) if ($test & 1) == 1; my @args = ((($test & 2) == 2) ? (PREPROCESSOR => $pz) : ()); my $o = $tmpl->fill_in(@args, HASH => { x => 119, 'y' => 23, z => 5 }); is $o, $result[$test]; } }