view release on metacpan or  search on metacpan

xml-binddata-0.3.2/t/each_off_by_one.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Mock::Simple;

use_ok 'XML::BindData';

my $counter = 0;
my $mock = Test::Mock::Simple->new(module => 'XML::BindData');
$mock->add('_get' => sub { $counter++; return []; });

is(
	XML::BindData->bind(
		'<foo><bar tmpl-each="bar" tmpl-bind="this"/></foo>',
		{ bar => [ ] }
	),
	'<foo></foo>'
);
is($counter, 1, 'Terminated correctly after each');

done_testing;