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