Bigger than the current version

[catagits/Catalyst-Devel.git] / t / back_compat.t

use strict;
use warnings;
use FindBin qw/$Bin/;
use File::Temp qw/tempfile/;
use lib "$Bin/lib";
use Data::Dumper;

use MyTestHelper;

use Test::More tests => 3;

my $helper = bless {}, 'MyTestHelper';

my $example1 = $helper->get_file('MyTestHelper', 'example1');
chomp $example1;

my $example2 = $helper->get_file('MyTestHelper', 'example2');
chomp $example2; 


is $example1, 'foobar[% test_var %]';
is $example2, 'bazquux';

package MyTestHelper;

use Test::More;
use File::Temp qw/tempfile/;

my ($fh, $fn) = tempfile;
close $fh;
$helper->render_file('example1',  $fn, { test_var => 'test_val' });
open $fh, $fn or die $@;
#seek $fh, 0, 0; # Rewind
my $contents;
{
    local $/; 
    $contents = <$fh>;
}
is $contents, "foobartest_val\n";