#!perl -T -w
use Test::More tests => 5;
use Text::TemplateLite;
use Text::TemplateLite::Standard;
my $tpl = Text::TemplateLite->new;
my $rnd = $tpl->new_renderer;
Text::TemplateLite::Standard::register($tpl, qw/:misc :iteration :numeric/);
$tpl->set(q{<<?*(0,'code')'end'>>});
is($rnd->limit(total_steps => 100)->render->result, 'end',
'no code exec on ?*(0)');
$tpl->set(q{<<*?('code',0)'end'>>});
is($rnd->limit(total_steps => 100)->render->result, 'codeend',
'one code exec on *?(0)');
$tpl->set(q{<<?*(1,'code')>>});
is($rnd->limit(total_steps => 5)->render->result, 'codecode',
'two code exec on ?*(1) lim 5');
$tpl->set(q{<<*?('code',1)>>});
is($rnd->limit(total_steps => 5)->render->result, 'codecode',
'two code exec on *?(1) lim 5');
$tpl->set(q{<<$=('n',1)?*(<($n,5),$n$=('n',+($n,1)))' $n now '$n>>});
is($rnd->limit(total_steps => 200)->render->result, '1234 $n now 5',
'$n=1; $n ?* < 5');