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 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
  24 my ($fh, $fn) = tempfile;
  25 $helper->render_file($fn,  { test_var => 'test_val' });
  26 seek $fh, 0, 0; # Rewind
  27 my $contents;
  28 {
  29     local $/;
  30     $contents = <$fh>;
  31 }
  32 warn $contents;
  33 is $contents, 'foobartest_val';