view release on metacpan or  search on metacpan

t/toc_ncf.t  view on Meta::CPAN

use Test::More;

use App::MakeEPUB;

# Tests regarding the toc.ncf file
# ================================

my ($npa,$np_ref,$args,$nps);

$npa  = [
    [ 'file1.html', '', 'No Anchor' ],
    [ 'file1.html', 'anchor1', 'First Anchor' ],
    [ 'file1.html', 'anchor2', 'Second Anchor' ],
];
$np_ref = <<EONP;
<navPoint id="navpoint-2" playOrder="2">
  <navLabel><text>No Anchor</text></navLabel>
  <content src="file1.html" />
</navPoint>
<navPoint id="navpoint-3" playOrder="3">
  <navLabel><text>First Anchor</text></navLabel>
  <content src="file1.html#anchor1" />
</navPoint>
<navPoint id="navpoint-4" playOrder="4">
  <navLabel><text>Second Anchor</text></navLabel>
  <content src="file1.html#anchor2" />
</navPoint>
EONP
$args = { counter => 2, array => $npa, indent => '' };
$nps = App::MakeEPUB::_tocncf_navPoints_from_array($args);

is($args->{counter}, 5, "counter updated");
is($nps, $np_ref, "correct navPoint string");

$args->{array} = [
    [ 'file2.html', 'anchor1', 'First Anchor', "    <!-- extra -->\n"],
];
$np_ref = <<EONP;
  <navPoint id="navpoint-5" playOrder="5">
    <navLabel><text>First Anchor</text></navLabel>
    <content src="file2.html#anchor1" />
    <!-- extra -->
  </navPoint>
EONP
$args->{indent} = '  ';
$nps = App::MakeEPUB::_tocncf_navPoints_from_array($args);

is($args->{counter}, 6, "counter updated");
is($nps, $np_ref, "correct navPoint string");

done_testing();