Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
5c11f60f3d | ||
|
|
2a9d4476c7 |
3
Changes
3
Changes
@@ -2,9 +2,6 @@ Revision history for Mojolicious::Plugin::TtRenderer
|
||||
|
||||
{{$NEXT}}
|
||||
|
||||
1.54 2014-12-20 10:17:47 -0500
|
||||
- cpantesters: do not report on older perls
|
||||
|
||||
1.53 2014-05-31 06:22:47 -0400
|
||||
- Mojolicious 5.0 support
|
||||
|
||||
|
||||
3
dist.ini
3
dist.ini
@@ -5,7 +5,7 @@ license = Perl_5
|
||||
copyright_holder = Ask Bjørn Hansen
|
||||
# copyright_year = 2009
|
||||
|
||||
version = 1.54
|
||||
version = 1.53
|
||||
|
||||
[@Author::Plicease]
|
||||
release_tests = 1
|
||||
@@ -65,4 +65,3 @@ remove = Mojo::IOLoop
|
||||
remove = Mojolicious::Lite
|
||||
remove = Test::Mojo
|
||||
|
||||
[Author::Plicease::InstallerPerlVersion]
|
||||
|
||||
@@ -102,6 +102,7 @@ sub _render {
|
||||
$self->tt->process(\$inline, @params);
|
||||
}
|
||||
else {
|
||||
$t =~ s{^/}{};
|
||||
my @ret = $provider->fetch($t);
|
||||
|
||||
if (not defined $ret[1]) {
|
||||
|
||||
10
t/00_diag.t
10
t/00_diag.t
@@ -11,12 +11,10 @@ BEGIN {
|
||||
} || die $@;
|
||||
do {
|
||||
my $fh;
|
||||
if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')))
|
||||
{
|
||||
@modules = <$fh>;
|
||||
close $fh;
|
||||
chomp @modules;
|
||||
}
|
||||
open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'));
|
||||
@modules = <$fh>;
|
||||
close $fh;
|
||||
chomp @modules;
|
||||
};
|
||||
eval qq{ require $_ } for @modules;
|
||||
};
|
||||
|
||||
@@ -1,69 +0,0 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
use File::Spec;
|
||||
|
||||
if($Mojolicious::VERSION >= 4.0)
|
||||
{
|
||||
plan skip_all => 'test broken in mojo 4.0';
|
||||
}
|
||||
else
|
||||
{
|
||||
plan tests => 3;
|
||||
}
|
||||
|
||||
# Send log to tmp file so that it doesn't clutter up the screen.
|
||||
app->log->level('fatal');
|
||||
app->log->path(do {
|
||||
File::Spec->catfile(tempdir(CLEANUP => 1), 'mojo.log');
|
||||
});
|
||||
|
||||
plugin 'tt_renderer' => {template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
|
||||
get '/exception' => sub { die };
|
||||
|
||||
#say app->mode;
|
||||
#app->start;
|
||||
#exit;
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->app->renderer->default_handler('tt');
|
||||
|
||||
my $deep_recursion = 0;
|
||||
|
||||
do {
|
||||
local $SIG{__WARN__} = sub {
|
||||
my $warning = shift;
|
||||
if($warning =~ /Deep recursion/) {
|
||||
$deep_recursion = 1;
|
||||
die $warning;
|
||||
}
|
||||
};
|
||||
$t->get_ok('/exception')
|
||||
->status_is(500);
|
||||
};
|
||||
|
||||
ok !$deep_recursion, 'no deep recursion';
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ exception.development.html.tt
|
||||
[% 1 + % %]
|
||||
|
||||
@@ exception.html.tt
|
||||
[% 1 + % %]
|
||||
|
||||
@@ exception.testing.html.tt
|
||||
[% 1 + % %]
|
||||
@@ -3,7 +3,7 @@ use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Fixme'
|
||||
unless eval q{ use Test::Fixme 0.14; 1 };
|
||||
unless eval q{ use Test::Fixme; 1 };
|
||||
};
|
||||
use Test::Fixme 0.07;
|
||||
use FindBin;
|
||||
@@ -14,6 +14,5 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
run_tests(
|
||||
match => qr/FIXME/,
|
||||
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
|
||||
warn => 1,
|
||||
);
|
||||
|
||||
|
||||
@@ -27,9 +27,6 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
my @private_classes;
|
||||
my %private_methods;
|
||||
|
||||
push @{ $config->{pod_coverage}->{private} },
|
||||
'Alien::.*::Install::Files#Inline';
|
||||
|
||||
foreach my $private (@{ $config->{pod_coverage}->{private} })
|
||||
{
|
||||
my($class,$method) = split /#/, $private;
|
||||
|
||||
@@ -4,23 +4,11 @@ use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
|
||||
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
|
||||
plan skip_all => 'test requires YAML'
|
||||
unless eval q{ use YAML qw( LoadFile ); 1 };
|
||||
};
|
||||
use Test::Pod::Spelling::CommonMistakes;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
my $config_filename = File::Spec->catfile(
|
||||
$FindBin::Bin, 'release.yml'
|
||||
);
|
||||
|
||||
my $config;
|
||||
$config = LoadFile($config_filename)
|
||||
if -r $config_filename;
|
||||
|
||||
plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
# FIXME test files in bin too.
|
||||
|
||||
Reference in New Issue
Block a user