ref: 1b27e93cd13ff60798e31634ddb362fa7aa9749d
dir: /examples/includes/HTML-Toc-0.91/t/options.t/
#--- options.t ---------------------------------------------------------------- # function: Test HTML::ToC. In particular test the available options. use strict; use Test; BEGIN { plan tests => 5; } use HTML::Toc; use HTML::TocGenerator; use HTML::TocInsertor; use HTML::TocUpdator; my ($filename); BEGIN { # Create test file $filename = "file$$.htm"; die "$filename is already there" if -e $filename; } END { # Remove test file unlink($filename) or warn "Can't unlink $filename: $!"; } #--- TestAttributeToExcludeToken() -------------------------------------------- # function: Test 'HTML::Toc' option 'attributeToExcludeToken' sub TestAttributeToExcludeToken { # Assemble test file open(FILE, ">$filename") || die "Can't create $filename: $!"; print FILE <<'EOT'; close(FILE); <body> <h1>Chapter 1</h1> <h1 class=appendix>Appendix</h1> </body> EOT # Create objects my $toc = HTML::Toc->new(); my $tocGenerator = HTML::TocGenerator->new(); $toc->setOptions({ 'attributeToExcludeToken' => 'foo', 'tokenToToc' => [{ 'tokenBegin' => '<h1 class=foodix>' }] }); # Generate ToC $tocGenerator->generateFromFile($toc, $filename); # Test ToC ok($toc->format(), <<EOT); <!-- Table of Contents generated by Perl - HTML::Toc --> <ul> <li><a href=#h-1>Chapter 1</a> </ul> <!-- End of generated Table of Contents --> EOT } # TestAttributeToExcludeToken() #--- TestAttributeToTocToken() ------------------------------------------------ # function: Test 'HTML::Toc' option 'attributeToTocToken' sub TestAttributeToTocToken { # Assemble test file open(FILE, ">$filename") || die "Can't create $filename: $!"; print FILE <<'EOT'; close(FILE); <body> <img src=test.gif alt=Picture> </body> </html> EOT # Create objects my $toc = HTML::Toc->new(); my $tocGenerator = HTML::TocGenerator->new(); $toc->setOptions({ 'attributeToTocToken' => 'foo', 'tokenToToc' => [{ 'groupId' => 'image', 'tokenBegin' => '<img alt=foo>' }], }); # Generate ToC $tocGenerator->generateFromFile($toc, $filename); # Test ToC ok($toc->format(), <<EOT); <!-- Table of Contents generated by Perl - HTML::Toc --> <ul> <li><a href=#image-1>Picture</a> </ul> <!-- End of generated Table of Contents --> EOT } # TestAttributeToTocToken() #--- TestNumberingStyleDecimal ------------------------------------------------ # function: Test 'decimal' numbering style. sub TestNumberingStyleDecimal { # Local variables my $output; # Create objects my $toc = HTML::Toc->new(); my $tocInsertor = HTML::TocInsertor->new(); $toc->setOptions({ 'doNumberToken' => 1, 'tokenToToc' => [{ 'level' => 1, 'tokenBegin' => '<h1>', 'numberingStyle' => 'decimal' }], }); # Generate ToC $tocInsertor->insert($toc, "<h1>Header</h1>", {'output' => \$output}); # Test ToC ok("$output\n", <<EOT); <a name=h-1><h1>1 Header</h1></a> EOT } # TestNumberingStyleDecimal() #--- TestNumberingStyleLowerAlpha --------------------------------------------- # function: Test 'lower-alpha' numbering style. sub TestNumberingStyleLowerAlpha { # Local variables my $output; # Create objects my $toc = HTML::Toc->new(); my $tocInsertor = HTML::TocInsertor->new(); $toc->setOptions({ 'doNumberToken' => 1, 'tokenToToc' => [{ 'level' => 1, 'tokenBegin' => '<h1>', 'numberingStyle' => 'lower-alpha' }], }); # Generate ToC $tocInsertor->insert($toc, "<h1>Header</h1>", {'output' => \$output}); # Test ToC ok("$output\n", <<EOT); <a name=h-a><h1>a Header</h1></a> EOT } # TestNumberingStyleLowerAlpha() #--- TestNumberingStyleUpperAlpha --------------------------------------------- # function: Test 'upper-alpha' numbering style. sub TestNumberingStyleUpperAlpha { # Local variables my $output; # Create objects my $toc = HTML::Toc->new(); my $tocInsertor = HTML::TocInsertor->new(); $toc->setOptions({ 'doNumberToken' => 1, 'tokenToToc' => [{ 'level' => 1, 'tokenBegin' => '<h1>', 'numberingStyle' => 'upper-alpha' }], }); # Generate ToC $tocInsertor->insert($toc, "<h1>Header</h1>", {'output' => \$output}); # Test ToC ok("$output\n", <<EOT); <a name=h-A><h1>A Header</h1></a> EOT } # TestNumberingStyleUpperAlpha() # Test 'attributeToTocToken' TestAttributeToTocToken(); # Test 'attributeToExcludeToken' TestAttributeToExcludeToken(); # Test 'numberingStyleDecimal' TestNumberingStyleDecimal(); # Test 'numberingStyleLowerAlpha' TestNumberingStyleLowerAlpha(); # Test 'numberingStyleUpperAlpha' TestNumberingStyleUpperAlpha();