t/back_compat.t

   1 use strict;
   2 use warnings;
   3 use FindBin qw/$Bin/;
   4 use File::Temp qw/tempfile/;
   5 use lib "$Bin/lib";
   6
   7 use MyTestHelper;
   8
   9 use Test::More;
  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
  23 package MyTestHelper;
  24
  25 use Test::More;
  26 use File::Temp qw/tempfile/;
  27
  28 my ($fh, $fn) = tempfile;
  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
  33 my $contents;
  34 {
  35     local $/;
  36     $contents = <$fh>;
  37 }
  38 is $contents, "foobartest_val\n";
  39
  40 done_testing;