6 use RT::Test tests => 1;
14 return if /(?:\.(?:jpe?g|png|gif|rej)|\~)$/i;
15 return if m{/\.[^/]+\.swp$}; # vim swap files
17 diag "testing $_" if $ENV{'TEST_VERBOSE'};
18 eval { compile_file($_) } and return;
20 diag "error in ${File::Find::name}:\n$@";
22 }, RT::Test::get_relocatable_dir('../share/html'));
23 ok($ok, "mason syntax is ok");
26 use HTML::Mason::Compiler;
27 use HTML::Mason::Compiler::ToObject;
28 BEGIN { require RT::Test; }
29 use Encode qw(decode_utf8);
34 my $text = decode_utf8(RT::Test->file_content($file));
36 my $compiler = new HTML::Mason::Compiler::ToObject;
40 $HTML::Mason::VERSION >= 1.36? (comp_path => 'my'): (),