diff options
Diffstat (limited to 'rt/t/00-mason-syntax.t')
| -rw-r--r-- | rt/t/00-mason-syntax.t | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/rt/t/00-mason-syntax.t b/rt/t/00-mason-syntax.t index 0584f630f..1221b7d17 100644 --- a/rt/t/00-mason-syntax.t +++ b/rt/t/00-mason-syntax.t @@ -3,9 +3,8 @@ use strict; use warnings; -use RT::Test tests => 1; +use RT::Test nodb => 1; -my $ok = 1; use File::Find; find( { @@ -14,13 +13,10 @@ find( { return if /(?:\.(?:jpe?g|png|gif|rej)|\~)$/i; return if m{/\.[^/]+\.swp$}; # vim swap files return unless -f $_; - diag "testing $_" if $ENV{'TEST_VERBOSE'}; - eval { compile_file($_) } and return; - $ok = 0; - diag "error in ${File::Find::name}:\n$@"; + local ($@); + ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@"); }, }, RT::Test::get_relocatable_dir('../share/html')); -ok($ok, "mason syntax is ok"); use HTML::Mason; use HTML::Mason::Compiler; @@ -37,7 +33,7 @@ sub compile_file { $compiler->compile( comp_source => $text, name => 'my', - $HTML::Mason::VERSION >= 1.36? (comp_path => 'my'): (), + comp_path => 'my', ); return 1; } |