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/out.t (1086B)

#!perl
#
# test apparatus for Text::Template module
# still incomplete.
#

use strict;
use warnings;
use Test::More tests => 4;

use_ok 'Text::Template' or exit 1;

my $templateIN = q{
This line should have a 3: {1+2}

This line should have several numbers:
{ $t = ''; foreach $n (1 .. 20) { $t .= $n . ' ' } $t }
};

my $templateOUT = q{
This line should have a 3: { $OUT = 1+2 }

This line should have several numbers:
{ foreach $n (1 .. 20) { $OUT .= $n . ' ' } }
};

# Build templates from string
my $template = Text::Template->new('type' => 'STRING', 'source' => $templateIN);
isa_ok $template, 'Text::Template';

$templateOUT = Text::Template->new('type' => 'STRING', 'source' => $templateOUT);
isa_ok $templateOUT, 'Text::Template';

# Fill in templates
my $text    = $template->fill_in();
my $textOUT = $templateOUT->fill_in();

# (1) They should be the same
is $text, $textOUT;

# Missing:  Test this feature in Safe compartments;
# it's a totally different code path.
# Decision: Put that into safe.t, because that file should
# be skipped when Safe.pm is unavailable.

exit;

#!perl # # test apparatus for Text::Template module # still incomplete. # use strict; use warnings; use Test::More tests => 4; use_ok 'Text::Template' or exit 1; my $templateIN = q{ This line should have a 3: {1+2} This line should have several numbers: { $t = ''; foreach $n (1 .. 20) { $t .= $n . ' ' } $t } }; my $templateOUT = q{ This line should have a 3: { $OUT = 1+2 } This line should have several numbers: { foreach $n (1 .. 20) { $OUT .= $n . ' ' } } }; # Build templates from string my $template = Text::Template->new('type' => 'STRING', 'source' => $templateIN); isa_ok $template, 'Text::Template'; $templateOUT = Text::Template->new('type' => 'STRING', 'source' => $templateOUT); isa_ok $templateOUT, 'Text::Template'; # Fill in templates my $text = $template->fill_in(); my $textOUT = $templateOUT->fill_in(); # (1) They should be the same is $text, $textOUT; # Missing: Test this feature in Safe compartments; # it's a totally different code path. # Decision: Put that into safe.t, because that file should # be skipped when Safe.pm is unavailable. exit;