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