[urisagit/Template-Simple.git] / t / top.t

#!perl

use lib qw(t) ;
use common ;

my $tests = [

	{
		name	=> 'top level - scalar data',
		data	=> 'bar',
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => 'bar',
	},
	{
		name	=> 'top level - array data',
		data	=> [
			"foo\n",
			"bar\n",
		],
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => <<EXPECTED,
foo
bar
EXPECTED
	},
	{
		name	=> 'top level - blessed array data',
		data	=> bless( [
			"foo\n",
			"bar\n",
		] ),
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => <<EXPECTED,
foo
bar
EXPECTED
	},
	{
		name	=> 'top level - code data',
		data	=> sub { \uc ${$_[0]} },
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => <<EXPECTED,
JUNK
EXPECTED
	},
] ;

template_tester( $tests ) ;

exit ;
Commit	Line	Data
e374d8da	1	#!perl
	2
	3	use lib qw(t) ;
	4	use common ;
	5
	6	my $tests = [
	7
	8	{
	9	name => 'top level - scalar data',
	10	data => 'bar',
	11	template => <<TEMPLATE,
	12	junk
	13	TEMPLATE
	14	expected => 'bar',
	15	},
	16	{
	17	name => 'top level - array data',
	18	data => [
	19	"foo\n",
	20	"bar\n",
	21	],
	22	template => <<TEMPLATE,
	23	junk
	24	TEMPLATE
	25	expected => <<EXPECTED,
	26	foo
	27	bar
	28	EXPECTED
	29	},
	30	{
	31	name => 'top level - blessed array data',
	32	data => bless( [
	33	"foo\n",
	34	"bar\n",
	35	] ),
	36	template => <<TEMPLATE,
	37	junk
	38	TEMPLATE
	39	expected => <<EXPECTED,
	40	foo
	41	bar
	42	EXPECTED
	43	},
	44	{
	45	name => 'top level - code data',
	46	data => sub { \uc ${$_[0]} },
	47	template => <<TEMPLATE,
	48	junk
	49	TEMPLATE
	50	expected => <<EXPECTED,
	51	JUNK
	52	EXPECTED
	53	},
	54	] ;
	55
	56	template_tester( $tests ) ;
	57
	58	exit ;
	59