t/render_file_contents.t

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