summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t
diff options
context:
space:
mode:
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.t194
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 &nbsp;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 &nbsp;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 &nbsp;Header</h1></a>
-EOT
-} # TestNumberingStyleUpperAlpha()
-
-
- # Test 'attributeToTocToken'
-TestAttributeToTocToken();
- # Test 'attributeToExcludeToken'
-TestAttributeToExcludeToken();
- # Test 'numberingStyleDecimal'
-TestNumberingStyleDecimal();
- # Test 'numberingStyleLowerAlpha'
-TestNumberingStyleLowerAlpha();
- # Test 'numberingStyleUpperAlpha'
-TestNumberingStyleUpperAlpha();