Commit | Line | Data |
7025ed89 |
1 | use strict; |
2 | use warnings; |
7025ed89 |
3 | use File::Temp qw/tempfile/; |
534f0e79 |
4 | use lib "t/lib"; |
7025ed89 |
5 | |
6 | use MyTestHelper; |
7 | |
0d4859fc |
8 | use Test::More; |
7025ed89 |
9 | |
10 | my $helper = bless {}, 'MyTestHelper'; |
11 | |
12 | my $example1 = $helper->get_file('MyTestHelper', 'example1'); |
13 | chomp $example1; |
14 | |
15 | my $example2 = $helper->get_file('MyTestHelper', 'example2'); |
ae133240 |
16 | chomp $example2; |
7025ed89 |
17 | |
18 | |
19 | is $example1, 'foobar[% test_var %]'; |
20 | is $example2, 'bazquux'; |
21 | |
06f62452 |
22 | package MyTestHelper; |
23 | |
24 | use Test::More; |
25 | use File::Temp qw/tempfile/; |
26 | |
d7ae8eab |
27 | my ($fh, $fn) = tempfile( UNLINK => 1 ); |
06f62452 |
28 | close $fh; |
29 | $helper->render_file('example1', $fn, { test_var => 'test_val' }); |
30 | open $fh, $fn or die $@; |
31 | #seek $fh, 0, 0; # Rewind |
7025ed89 |
32 | my $contents; |
33 | { |
ae133240 |
34 | local $/; |
7025ed89 |
35 | $contents = <$fh>; |
36 | } |
06f62452 |
37 | is $contents, "foobartest_val\n"; |
39c1c8b3 |
38 | |
0d4859fc |
39 | done_testing; |