X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frender_file_contents.t;h=0dbcb0db1da85e18e8f02be8987fd08be4c12bd4;hb=57f304f79b64d807c7b34fea456efb7018722999;hp=461719778a9caa48e2eb91d0e6c0bcd08e9db2e7;hpb=ed97ee4fdeebf1b0f41f332771c9f24334993fb4;p=catagits%2FCatalyst-Devel.git

diff --git a/t/render_file_contents.t b/t/render_file_contents.t
index 4617197..0dbcb0d 100644
--- a/t/render_file_contents.t
+++ b/t/render_file_contents.t
@@ -3,17 +3,26 @@ use warnings;
 use FindBin qw/$Bin/;
 use lib "$Bin/lib";
 use Catalyst::Helper;
-use MyTestHelper;
 
-use Test::More tests => 1;
+use Test::More;
 
-my $helper = bless {}, 'MyTestHelper';
+my $helper = bless {}, 'Catalyst::Helper';
 
-package MyTestHelper;
-use Test::More;
 use File::Temp qw/tempfile/;
 
 my ($fh, $fn) = tempfile;
 close $fh;
 
-ok( $helper->render_file_contents('example1',  $fn, { test_var => 'test_val' }), "file contents rendered" ); 
+ok( $helper->render_file_contents('example1',  $fn,
+        { test_var => 'test_val' }, 0677
+    ),
+    "file contents rendered" ); 
+ok -r $fn;
+ok -s $fn;
+my $perms = ( stat $fn )[2] & 07777;
+unless ($^O eq 'MSWin32') {
+    is $perms, 0677;
+}
+unlink $fn;
+
+done_testing;