Compare commits

..
2 Commits
Author SHA1 Message Date
Graham Ollis 5c11f60f3d remove / prefix 2014-10-21 16:13:24 -04:00
Graham Ollis 2a9d4476c7 rm old test 2014-10-21 16:12:58 -04:00
8 changed files with 7 additions and 97 deletions
-3
View File
@@ -2,9 +2,6 @@ Revision history for Mojolicious::Plugin::TtRenderer
{{$NEXT}} {{$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 1.53 2014-05-31 06:22:47 -0400
- Mojolicious 5.0 support - Mojolicious 5.0 support
+1 -2
View File
@@ -5,7 +5,7 @@ license = Perl_5
copyright_holder = Ask Bjørn Hansen copyright_holder = Ask Bjørn Hansen
# copyright_year = 2009 # copyright_year = 2009
version = 1.54 version = 1.53
[@Author::Plicease] [@Author::Plicease]
release_tests = 1 release_tests = 1
@@ -65,4 +65,3 @@ remove = Mojo::IOLoop
remove = Mojolicious::Lite remove = Mojolicious::Lite
remove = Test::Mojo remove = Test::Mojo
[Author::Plicease::InstallerPerlVersion]
@@ -102,6 +102,7 @@ sub _render {
$self->tt->process(\$inline, @params); $self->tt->process(\$inline, @params);
} }
else { else {
$t =~ s{^/}{};
my @ret = $provider->fetch($t); my @ret = $provider->fetch($t);
if (not defined $ret[1]) { if (not defined $ret[1]) {
+4 -6
View File
@@ -11,12 +11,10 @@ BEGIN {
} || die $@; } || die $@;
do { do {
my $fh; my $fh;
if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'))) open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'));
{ @modules = <$fh>;
@modules = <$fh>; close $fh;
close $fh; chomp @modules;
chomp @modules;
}
}; };
eval qq{ require $_ } for @modules; eval qq{ require $_ } for @modules;
}; };
-69
View File
@@ -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 + % %]
+1 -2
View File
@@ -3,7 +3,7 @@ use warnings;
use Test::More; use Test::More;
BEGIN { BEGIN {
plan skip_all => 'test requires Test::Fixme' 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 Test::Fixme 0.07;
use FindBin; use FindBin;
@@ -14,6 +14,5 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
run_tests( run_tests(
match => qr/FIXME/, match => qr/FIXME/,
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )], where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
warn => 1,
); );
-3
View File
@@ -27,9 +27,6 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
my @private_classes; my @private_classes;
my %private_methods; my %private_methods;
push @{ $config->{pod_coverage}->{private} },
'Alien::.*::Install::Files#Inline';
foreach my $private (@{ $config->{pod_coverage}->{private} }) foreach my $private (@{ $config->{pod_coverage}->{private} })
{ {
my($class,$method) = split /#/, $private; my($class,$method) = split /#/, $private;
-12
View File
@@ -4,23 +4,11 @@ use Test::More;
BEGIN { BEGIN {
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes' plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 }; 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 Test::Pod::Spelling::CommonMistakes;
use FindBin; use FindBin;
use File::Spec; 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)); chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
# FIXME test files in bin too. # FIXME test files in bin too.