t/render_share_dir_file.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use lib "$Bin/lib";
   5 use Catalyst::Helper;
   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_sharedir_file('script/myapp_cgi.pl.tt', $fn, { appprefix  => 'fnargh' }), "sharedir file rendered" );
  16 ok -r $fn;
  17 ok -s $fn;
  18 unlink $fn;
  19
  20 done_testing;