[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 Test::More;

my $helper = bless {}, 'Catalyst::Helper';

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" ); 
ok -r $fn;
ok -s $fn;
unlink $fn;

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