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

use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/lib";
use Catalyst::Helper;
use MyTestHelper;

use Test::More tests => 1;

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

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

my ($fh, $fn) = tempfile;
close $fh;

ok( $helper->render_file_contents('example1',  $fn, { test_var => 'test_val' }), "file contents rendered" );
Commit	Line	Data
ed97ee4f	1	use strict;
	2	use warnings;
	3	use FindBin qw/$Bin/;
	4	use lib "$Bin/lib";
	5	use Catalyst::Helper;
	6	use MyTestHelper;
	7
	8	use Test::More tests => 1;
	9
	10	my $helper = bless {}, 'MyTestHelper';
	11
	12	package MyTestHelper;
	13	use Test::More;
	14	use File::Temp qw/tempfile/;
	15
	16	my ($fh, $fn) = tempfile;
	17	close $fh;
	18
	19	ok( $helper->render_file_contents('example1', $fn, { test_var => 'test_val' }), "file contents rendered" );