diff options
Diffstat (limited to 'chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t')
-rw-r--r-- | chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t | 194 |
1 files changed, 0 insertions, 194 deletions
diff --git a/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t b/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t deleted file mode 100644 index 04bedace95c..00000000000 --- a/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t +++ /dev/null @@ -1,194 +0,0 @@ -#--- 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(); |