t/back_compat.t

   1 use strict;
   2 use warnings;
   3 use File::Temp qw/tempfile/;
   4 use lib "t/lib";
   5
   6 use MyTestHelper;
   7
   8 use Test::More;
   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');
  16 chomp $example2;
  17
  18
  19 is $example1, 'foobar[% test_var %]';
  20 is $example2, 'bazquux';
  21
  22 package MyTestHelper;
  23
  24 use Test::More;
  25 use File::Temp qw/tempfile/;
  26
  27 my ($fh, $fn) = tempfile( UNLINK => 1 );
  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
  32 my $contents;
  33 {
  34     local $/;
  35     $contents = <$fh>;
  36 }
  37 is $contents, "foobartest_val\n";
  38
  39 done_testing;