Skip check for win32

[catagits/Catalyst-Devel.git] / t / render_file_contents.t

diff --git a/t/render_file_contents.t b/t/render_file_contents.t
index dffd490..0dbcb0d 100644 (file)
--- a/t/render_file_contents.t
+++ b/t/render_file_contents.t
@@ -13,8 +13,16 @@ 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;