use Test::More;
use Test::XML;
use Data::Dumper;
plan tests => 3;
require_ok( 'XHTML::Instrumented' );
my $data = <<DATA;
<div class="pBody">
<ul id="learn_list">
<li id="pt-lang"><a href="learn" id="nav_learn" name="nav_learn">English</a></li>
</ul>
</div>
DATA
my $cmp = <<DATA;
<div class="pBody">
</div>
DATA
my $t = XHTML::Instrumented->new(name => \$data, type => '');
my $output = $t->output(
learn_list => $t->loop(),
);
is_xml($output, $cmp, 'not defined');
$output = $t->output(
learn_list => $t->loop(
headers => [ 'nav_learn' ],
data => [
[ $t->replace(text => 'English' . ' (' . 123 . ')', args => { href => 'http://test/1' }) ],
[ $t->replace(text => 'French' . ' (' . 456 . ')', args => { href => 'http://test/2' }) ],
]
),
);
$cmp = <<DATA;
<div class="pBody">
<ul id="learn_list">
<li id="pt-lang.1"><a href="http://test/1" id="nav_learn.1" name="nav_learn">English (123)</a></li>
<li id="pt-lang.2"><a href="http://test/2" id="nav_learn.2" name="nav_learn">French (456)</a></li>
</ul>
</div>
DATA
is_xml($output, $cmp, 'defined');