t/render_share_dir_file.t

   1 use strict;
   2 use warnings;
   3 use lib "t/lib";
   4 use Catalyst::Helper;
   5 use Test::More;
   6
   7 my $helper = bless {}, 'Catalyst::Helper';
   8
   9 use File::Temp qw/tempfile/;
  10
  11 my ($fh, $fn) = tempfile;
  12 close $fh;
  13
  14 ok( $helper->render_sharedir_file('script/myapp_cgi.pl.tt', $fn, { appprefix  => 'fnargh' }), "sharedir file rendered" );
  15 ok -r $fn;
  16 ok -s $fn;
  17 unlink $fn;
  18
  19 done_testing;