[Rt-commit] r8340 - rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression

[ruz at bestpractical.com]

Author: ruz
Date: Tue Jul 31 18:44:18 2007
New Revision: 8340

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/00-mason-syntax.t

Log:
* fix compat of the tests with new Mason

Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/00-mason-syntax.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/00-mason-syntax.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.0/lib/t/regression/00-mason-syntax.t	Tue Jul 31 18:44:18 2007
@@ -25,6 +25,7 @@
 }, 'html');
 ok($ok, "mason syntax is ok");
 
+use HTML::Mason;
 use HTML::Mason::Compiler;
 use HTML::Mason::Compiler::ToObject;
 
@@ -36,7 +37,11 @@
     close $fh or die "couldn't close '$file': $!";
 
     my $compiler = new HTML::Mason::Compiler::ToObject;
-    $compiler->compile( comp_source => $text, name => 'my' );
+    $compiler->compile(
+        comp_source => $text,
+        name => 'my',
+        $HTML::Mason::VERSION >= 1.36? (comp_path => 'my'): (),
+    );
     return 1;
 }