X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Frender_file_contents.t;h=9cd69bdcd0013750df285c9900990e1661921419;hb=ae133240923d063b2a39dcf1abdada5f917da8c5;hp=4fd3205889d50080714621d23d9c5a0ff205f7a6;hpb=15f460a5b954eb86dbcda1beacff0aecc1b012c5;p=catagits%2FCatalyst-Devel.git

diff --git a/t/render_file_contents.t b/t/render_file_contents.t
index 4fd3205..9cd69bd 100644
--- a/t/render_file_contents.t
+++ b/t/render_file_contents.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
-use FindBin qw/$Bin/;
-use lib "$Bin/lib";
+use lib "t/lib";
 use Catalyst::Helper;
 
 use Test::More;
@@ -13,9 +12,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;