tests now pass!

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index f8ffe9a..facb44b 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -226,7 +226,7 @@ sub mk_dir {
 
 sub mk_file {
     my ( $self, $file, $content ) = @_;
-    if ( -e $file ) {
+    if ( -e $file && -s _ ) {
         print qq/ exists "$file"\n/;
         return 0
           unless ( $self->{'.newfiles'}
@@ -277,7 +277,7 @@ sub next_test {
 sub render_file {
     my ( $self, $file, $path, $vars ) = @_;
     my $template = $self->get_file( ( caller(0) )[0], $file );
-    $self->render_file_contents($self, $template, $path, $vars);
+    $self->render_file_contents($template, $path, $vars);
 }
 
 sub render_sharedir_file {

diff --git a/t/back_compat.t b/t/back_compat.t
index f4179dc..c4f3edb 100644 (file)
--- a/t/back_compat.t
+++ b/t/back_compat.t
@@ -21,13 +21,20 @@ chomp $example2;
 is $example1, 'foobar[% test_var %]';
 is $example2, 'bazquux';
 
+package MyTestHelper;
+
+use Test::More;
+use File::Temp qw/tempfile/;
+
 my ($fh, $fn) = tempfile;
-$helper->render_file($fn,  { test_var => 'test_val' });
-seek $fh, 0, 0; # Rewind
+close $fh;
+$helper->render_file('example1',  $fn, { test_var => 'test_val' });
+open $fh, $fn or die $@;
+#seek $fh, 0, 0; # Rewind
 my $contents;
 {
     local $/; 
     $contents = <$fh>;
 }
 warn $contents;
-is $contents, 'foobartest_val';
+is $contents, "foobartest_val\n";