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