import rt 3.6.4

1 files changed, 42 insertions, 0 deletions

diff --git a/rt/lib/t/regression/00-mason-syntax.t b/rt/lib/t/regression/00-mason-syntax.t
new file mode 100644
index 000000000..96674cacf
--- /dev/null
+++ b/rt/lib/t/regression/00-mason-syntax.t
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+my $ok = 1;
+
+use File::Find;
+find( {
+    no_chdir => 1,
+    wanted   => sub {
+        return if /\.(?:jpe?g|png|gif|rej|\~)$/i;
+	if (m!/\.svn$!) {
+	    $File::Find::prune = 1;
+	    return;
+	}
+        return unless -f $_;
+        diag "testing $_" if $ENV{'TEST_VERBOSE'};
+        eval { compile_file($_) } and return;
+        $ok = 0;
+        diag "error in ${File::Find::name}:\n$@";
+    },
+}, 'html');
+ok($ok, "mason syntax is ok");
+
+use HTML::Mason::Compiler;
+use HTML::Mason::Compiler::ToObject;
+
+sub compile_file {
+    my $file = shift;
+
+    open my $fh, '<:utf8', $file or die "couldn't open '$file': $!";
+    my $text = do { local $/; <$fh> };
+    close $fh or die "couldn't close '$file': $!";
+
+    my $compiler = new HTML::Mason::Compiler::ToObject;
+    $compiler->compile( comp_source => $text, name => 'my' );
+    return 1;
+}
+