File Coverage

t/bind_data.t

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	27	27	100.0

use strict;
use warnings;

use Test::More;
use Test::Warnings;

use_ok 'XML::BindData';

my $tests = [
	[
		'', { foo => 'bar' },
		'bar', 'Single binding'
	],

	[
		'', { foo => undef },
		'', 'Single binding, undefined - get empty string'
	],

	[
		'', { foo => 'bar' },
		'bar', 'Single binding, with default (unused)'
	],

	[
		'', {},
		'baz', 'Single binding, with default (used)'
	],

	[
		'', { foo => [(1) x 3] },
		'',
		'Each over multiple entities'
	],

	[
		'',
		{ bar => [ 1, 2, 3 ] },
		'123',
		'This binds inside each'
	],

	[
		'', { baz => 'quux' },
		'', 'Attribute binds'
	],

	[
		'', { aaa => 1, bbb => 2 },
		'', 'Multiple attributes bind'
	],

	[
		'', { aaa => 1, bbb => 2 },
		'', 'Multiple attributes bind with undefined values'
	],

	[
		'', { aaa => 1, bbb => 2 },
		'', 'Attribute defaults'
    ],

	[
		'', { aaa => 0, bbb => 2 },
		'', 'Attribute defaults with false values'
	],

	[
		'', { aaa => undef, bbb => 2 },
		'', 'Attribute defaults with undefined values'
	],

	[
		'', { aaa => 0, bbb => 2 },
		'', 'Attribute defaults with commas and colons'
	],

	[
		'',
		{
			bar => [
				[ qw/ 1 2 / ],
				[ qw/ 3 4 / ],
			]
		},
		'1234',
		'Nested arrays'
	],

	[
		'',
		{
			bar => [
				{ id => 1 },
				{ id => 2 },
			]
		},
		'12',
		'Each uses individual items as context'
	],

	[
		'',
		{ foo => { bar => { baz => 1 } } },
		'1', 'Dot notation references nested hashes'
	],

	[
		'bar', { show => 1 },
		'bar', 'If true keeps node'
	],

	[
		'bar', { show => undef },
		'', 'If false removes node'
	],

    [
		'bar', { },
		'', 'If false removes node'
	],

	[
		'bar', { show => undef },
		'bar', 'If not false keeps node'
	],

	[
		'bar', { show => 1 },
		'', 'If not true removes node'
	],

	[
		'',
		{
			show => 1,
			bar  => [ 1, 2, 3 ],
		},
		'123',
		'If + each + this all on one tag works'
	],

    [
        '',
        {
            list => [ 1, 2 ],
            num => 3,
        },
        '123',
        'XML order retained when using varying types',
    ],
    [
        '',
        {
            list => [ 0, 1 ],
            num => 0,
        },
        '010',
        'Number 0 is a valid value and passes if conditionals',
    ],
    [
        '',{ num => 4 },
        '4',
        'Preserve comments'
    ]
];

foreach my $t (@$tests) {
	my ($source_xml, $data, $output, $msg) = @$t;
	is(XML::BindData->bind($source_xml, $data), $output, $msg);
}

done_testing;