| Index: source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t
|
| ===================================================================
|
| --- source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t (revision 247498)
|
| +++ source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t (working copy)
|
| @@ -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();
|
|
|
Chromium Code Reviews
Issue 148913004:
libvpx: Pull from upstream (Closed)
Base URL: svn://svn.chromium.org/chrome/trunk/deps/third_party/libvpx/