view release on metacpan or  search on metacpan

t/manualTest.t  view on Meta::CPAN

#--- manual.t -----------------------------------------------------------------
# function: Test HTML::ToC generating a manual.

use strict;
use Test::More tests => 3;
use Test::Differences;

use HTML::Toc;
use HTML::TocGenerator;
use HTML::TocInsertor;
use HTML::TocUpdator;


#--- AssembleTocLine() --------------------------------------------------------
# function: Assemble ToC line.

sub AssembleTocLine {
                # Get arguments
        my ($aLevel, $aGroupId, $aNode, $aSequenceNr, $aText) = @_;
                # Local variables
        my ($result);

                # Assemble ToC line
        SWITCH: {
                if ($aGroupId eq "prelude") {
                        $result = "<li>$aText";
                        last SWITCH;
                }
                if ($aGroupId eq "part") {
                        $result = "<li>Part $aNode &nbsp;$aText";
                        last SWITCH;
                }
                if ($aGroupId eq "h") {
                        $result = "<li>$aSequenceNr. &nbsp;$aText";
                        last SWITCH;
                }
                else {
                        $result = "<li>$aNode &nbsp;$aText";
                        last SWITCH;
                }
        }

                # Return value
        return $result;
}  # AssembleTocLine()


#--- AssembleTokenNumber() ----------------------------------------------------
# function: Assemble token number.

sub AssembleTokenNumber {
                # Get arguments
        my ($aNode, $aGroupId, $aFile, $aGroupLevel, $aLevel, $aToc) = @_;
                # Local variables
        my ($result);
                # Assemble token number
        SWITCH: {
                if ($aGroupId eq "part") {
                        $result = "Part $aNode &nbsp;";
                        last SWITCH;
                }
                else {
                        $result = "$aNode &nbsp;";
                        last SWITCH;
                }
        }