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