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 MyTestHelper;
   7
   8 use Test::More tests => 1;
   9
  10 my $helper = bless {}, 'MyTestHelper';
  11
  12 package MyTestHelper;
  13 use FindBin qw/$Bin/;
  14 use Test::More;
  15 use File::Temp qw/tempfile/;
  16
  17 my ($fh, $fn) = tempfile;
  18 close $fh;
  19
  20 ok( $helper->render_sharedir_file('script/myapp_cgi.pl.tt',  { appprefix  => 'fnargh' }), "sharedir file rendered" );