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