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/warnings.t (1282B)

#!perl

use strict;
use warnings;
use Text::Template;

# Minimum Test::More version; 0.94+ is required for `done_testing`
BEGIN {
    unless (eval { require Test::More; "$Test::More::VERSION" >= 0.94; }) {
        Test::More::plan(skip_all => '[ Test::More v0.94+ ] is required for testing');
    }

Test::More->import;

# Non-CORE module(s)
    unless (eval { require Test::Warnings; 1; }) {
        plan(skip_all => '[ Test::Warnings ] is required for testing');
    }

Test::Warnings->import;
}

my $template = <<'EOT';
{{
if ($good =~ /good/) {
    'This template should not produce warnings.'.$bad;
}
}}
EOT

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

my $result = $template->fill_in(HASH => { good => 'good' });

$result =~ s/(?:^\s+)|(?:\s+$)//gs;
is $result, 'This template should not produce warnings.';

# see https://github.com/mschout/perl-text-template/issues/10
$template = Text::Template->new(type => 'STRING', package => 'MY', source => '');
$template->fill_in(package => 'MY', hash => { include => sub { 'XX' } });

$template = Text::Template->new(type => 'STRING', package => 'MY', source => '');
$template->fill_in(package => 'MY', hash => { include => sub { 'XX' } });

done_testing;

#!perl use strict; use warnings; use Text::Template; # Minimum Test::More version; 0.94+ is required for `done_testing` BEGIN { unless (eval { require Test::More; "$Test::More::VERSION" >= 0.94; }) { Test::More::plan(skip_all => '[ Test::More v0.94+ ] is required for testing'); } Test::More->import; # Non-CORE module(s) unless (eval { require Test::Warnings; 1; }) { plan(skip_all => '[ Test::Warnings ] is required for testing'); } Test::Warnings->import; } my $template = <<'EOT'; {{ if ($good =~ /good/) { 'This template should not produce warnings.'.$bad; } }} EOT $template = Text::Template->new(type => 'STRING', source => $template); isa_ok $template, 'Text::Template'; my $result = $template->fill_in(HASH => { good => 'good' }); $result =~ s/(?:^\s+)|(?:\s+$)//gs; is $result, 'This template should not produce warnings.'; # see https://github.com/mschout/perl-text-template/issues/10 $template = Text::Template->new(type => 'STRING', package => 'MY', source => ''); $template->fill_in(package => 'MY', hash => { include => sub { 'XX' } }); $template = Text::Template->new(type => 'STRING', package => 'MY', source => ''); $template->fill_in(package => 'MY', hash => { include => sub { 'XX' } }); done_testing;