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

#!perl

use lib qw(t) ;
use common ;

my $tests = [

	{
#		skip	=> 1,
		name	=> 'simple scalar',
		data	=> {
			foo	=> 'FOO is 3',
			BAR	=> 'bar is baz',
		},
		template => <<TEMPLATE,
[%foo%]
junk
[%BAR%]
TEMPLATE
		expected => <<EXPECTED,
FOO is 3
junk
bar is baz
EXPECTED
	},

	{
#		skip	=> 1,
		name	=> 'simple chunk - hash data',
		data	=> {
			foo	=> { FOO => 3 },
			bar	=> { BAR => 4 },
		},
		template => <<TEMPLATE,
[%START foo%]
[%FOO%]
[%END foo%]
[%START bar%][%BAR%][%END bar%]
TEMPLATE
		expected => <<EXPECTED,

3

4
EXPECTED
	},

	{
#		skip	=> 1,
		name	=> 'simple chunk - scalar data',
		data	=> {
			foo	=> 3,
			bar	=> { BAR => 4 },
		},
		template => <<TEMPLATE,
[%START foo%]
FOO
[%END foo%]
[%START bar%][%BAR%][%END bar%]
TEMPLATE
		expected => <<EXPECTED,
3
4
EXPECTED
	},
	{
#		skip	=> 1,
		name	=> 'simple chunk - array of hashes',
		data	=> [
			{
				foo	=> { FOO => 3 },
				bar	=> { BAR => 4 },
			},
			{
				foo	=> { FOO => 6 },
				bar	=> { BAR => 'quux' },
			}
		],
		template => <<TEMPLATE,
[%START foo%]
[%FOO%]
[%END foo%]
[%START bar%][%BAR%][%END bar%]
TEMPLATE
		expected => <<EXPECTED,

3

4

6

quux
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	# skip => 1,
	10	name => 'simple scalar',
	11	data => {
	12	foo => 'FOO is 3',
	13	BAR => 'bar is baz',
	14	},
	15	template => <<TEMPLATE,
	16	[%foo%]
	17	junk
	18	[%BAR%]
	19	TEMPLATE
	20	expected => <<EXPECTED,
	21	FOO is 3
	22	junk
	23	bar is baz
	24	EXPECTED
	25	},
	26
	27	{
	28	# skip => 1,
	29	name => 'simple chunk - hash data',
	30	data => {
	31	foo => { FOO => 3 },
	32	bar => { BAR => 4 },
	33	},
	34	template => <<TEMPLATE,
	35	[%START foo%]
	36	[%FOO%]
	37	[%END foo%]
	38	[%START bar%][%BAR%][%END bar%]
	39	TEMPLATE
	40	expected => <<EXPECTED,
	41
	42	3
	43
	44	4
	45	EXPECTED
	46	},
	47
	48	{
	49	# skip => 1,
	50	name => 'simple chunk - scalar data',
	51	data => {
	52	foo => 3,
	53	bar => { BAR => 4 },
	54	},
	55	template => <<TEMPLATE,
	56	[%START foo%]
	57	FOO
	58	[%END foo%]
	59	[%START bar%][%BAR%][%END bar%]
	60	TEMPLATE
	61	expected => <<EXPECTED,
	62	3
	63	4
	64	EXPECTED
65	},
66	{
67	# skip => 1,
68	name => 'simple chunk - array of hashes',
69	data => [
70	{
71	foo => { FOO => 3 },
72	bar => { BAR => 4 },
73	},
74	{
75	foo => { FOO => 6 },
76	bar => { BAR => 'quux' },
77	}
78	],
79	template => <<TEMPLATE,
80	[%START foo%]
81	[%FOO%]
82	[%END foo%]
83	[%START bar%][%BAR%][%END bar%]
84	TEMPLATE
85	expected => <<EXPECTED,
86
87	3
88
89	4
90
91	6
92
93	quux
94	EXPECTED
95	},
96	] ;
97
98	template_tester( $tests ) ;
99
100	exit ;
101