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

#!perl

use lib qw(t) ;
use common ;

my $tests = [

	{
		name	=> 'scalar data',
		data	=> 'bar',
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => 'bar',
	},
	{
		name	=> 'array data',
		data	=> [
			"foo\n",
			"bar\n",
		],
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => <<EXPECTED,
foo
bar
EXPECTED
	},
	{
		name	=> 'blessed array data',
		data	=> bless( [
			"foo\n",
			"bar\n",
		] ),
		template => <<TEMPLATE,
junk
TEMPLATE
		expected => <<EXPECTED,
foo
bar
EXPECTED
	},
	{
		name	=> 'code data',
		compile_skip	=> 1,
		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	{
f5c8badf	9	name => 'scalar data',
e374d8da	10	data => 'bar',
	11	template => <<TEMPLATE,
	12	junk
	13	TEMPLATE
	14	expected => 'bar',
	15	},
	16	{
f5c8badf	17	name => 'array data',
e374d8da	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	{
f5c8badf	31	name => 'blessed array data',
e374d8da	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	{
f5c8badf	45	name => 'code data',
f5c8badf	46	compile_skip => 1,
e374d8da	47	data => sub { \uc ${$_[0]} },
	48	template => <<TEMPLATE,
	49	junk
	50	TEMPLATE
	51	expected => <<EXPECTED,
	52	JUNK
	53	EXPECTED
	54	},
	55	] ;
	56
	57	template_tester( $tests ) ;
	58
	59	exit ;
	60