[Rt-commit] r8310 - rt/branches/3.7-EXPERIMENTAL-TUNIS/t

[ruz at bestpractical.com]

Author: ruz
Date: Mon Jul 30 10:52:12 2007
New Revision: 8310

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/00-mason-syntax.t

Log:
* fix compatibility of the test with Mason 1.36

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/00-mason-syntax.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/00-mason-syntax.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/00-mason-syntax.t	Mon Jul 30 10:52:12 2007
@@ -21,6 +21,7 @@
 }, 'html');
 ok($ok, "mason syntax is ok");
 
+use HTML::Mason;
 use HTML::Mason::Compiler;
 use HTML::Mason::Compiler::ToObject;
 
@@ -32,7 +33,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;
 }