t/render_file_contents.t

   1 use strict;
   2 use warnings;
   3 use lib "t/lib";
   4 use Catalyst::Helper;
   5
   6 use Test::More;
   7
   8 my $helper = bless {}, 'Catalyst::Helper';
   9
  10 use File::Temp qw/tempfile/;
  11
  12 my ($fh, $fn) = tempfile;
  13 close $fh;
  14
  15 ok( $helper->render_file_contents('example1',  $fn,
  16         { test_var => 'test_val' }, 0677
  17     ),
  18     "file contents rendered" );
  19 ok -r $fn;
  20 ok -s $fn;
  21 my $perms = ( stat $fn )[2] & 07777;
  22 unless ($^O eq 'MSWin32') {
  23     is $perms, 0677;
  24 }
  25 unlink $fn;
  26
  27 done_testing;