X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2F00-mason-syntax.t;h=e87840ac46a5d3f821d8409e5145918b85f5ce44;hb=949a80c148a8bbeeeec54c5a0be5d73b292423a5;hp=0f77876ae45ed992b97d495a1aa0f214cf50dbf8;hpb=7588a4ac90a9b07c08a3107cd1107d773be1c991;p=freeside.git diff --git a/rt/t/00-mason-syntax.t b/rt/t/00-mason-syntax.t index 0f77876ae..e87840ac4 100644 --- a/rt/t/00-mason-syntax.t +++ b/rt/t/00-mason-syntax.t @@ -9,7 +9,7 @@ find( { no_chdir => 1, wanted => sub { return if /(?:\.(?:jpe?g|png|gif|rej)|\~)$/i; - return if m{/\.[^/]+\.swp$}; # vim swap files + return if m{/\.[^/]+\.sw[op]$}; # vim swap files return unless -f $_; local ($@); ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@"); @@ -20,12 +20,11 @@ use HTML::Mason; use HTML::Mason::Compiler; use HTML::Mason::Compiler::ToObject; BEGIN { require RT::Test; } -use Encode qw(decode_utf8); sub compile_file { my $file = shift; - my $text = decode_utf8(RT::Test->file_content($file)); + my $text = Encode::decode( "UTF-8", RT::Test->file_content($file)); my $compiler = new HTML::Mason::Compiler::ToObject; $compiler->compile(