Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(6)

Issues Search
    My Issues | Starred     Open | Closed | All

Unified Diff: source/libvpx/examples/includes/HTML-Toc-0.91/t/podExamples.t

Issue 148913004: libvpx: Pull from upstream (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/deps/third_party/libvpx/
Patch Set: Created 6 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t ('k') | source/libvpx/examples/includes/HTML-Toc-0.91/t/propagate.t » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: source/libvpx/examples/includes/HTML-Toc-0.91/t/podExamples.t
===================================================================
--- source/libvpx/examples/includes/HTML-Toc-0.91/t/podExamples.t (revision 247498)
+++ source/libvpx/examples/includes/HTML-Toc-0.91/t/podExamples.t (working copy)
@@ -1,709 +0,0 @@
-#--- podExamples.t ------------------------------------------------------------
-# function: Test HTML::ToC. In particular test the examples as described in
-# the POD documentation.
-
-use strict;
-use Test;
-
-BEGIN { plan tests => 13; }
-
-use HTML::Toc;
-use HTML::TocGenerator;
-use HTML::TocInsertor;
-use HTML::TocUpdator;
-
-my ($filename, $filename2);
-
-
-BEGIN {
- # Create test file
- $filename = "tmp.htm";
- die "$filename is already there" if -e $filename;
- # Create test file 2
- $filename2 = "tmp2.htm";
- die "$filename2 is already there" if -e $filename2;
-}
-
-
-END {
- # Remove test file
- unlink($filename) or warn "Can't unlink $filename: $!";
- # Remove test file 2
- unlink($filename2) or warn "Can't unlink $filename2: $!";
-}
-
-
-#--- TestExtendFromFile() --------------------------------------------------
-# function: Test 'HTML::TocGenerator->extendFromFile()
-
-sub TestExtendFromFile {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<body>
- <h1>Chapter of document 1</h1>
-</body>
-EOT
-
- # Assemble test file 2
- open(FILE, ">$filename2") || die "Can't create $filename2: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body>
- <h1>Chapter of document 2</h1>
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # Set ToC options
- $toc->setOptions({'doLinkToFile' => 1});
- # Generate ToC
- $tocGenerator->generateFromFile($toc, $filename);
- $tocGenerator->extendFromFile($toc, $filename2);
- # Test ToC
- ok($toc->format(), <<EOT);
-
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=tmp.htm#h-1>Chapter of document 1</a>
- <li><a href=tmp2.htm#h-2>Chapter of document 2</a>
-</ul>
-<!-- End of generated Table of Contents -->
-EOT
-} # TestExtendFromFile()
-
-
-#--- TestGenerateFromFiles() --------------------------------------------------
-# function: Test 'HTML::TocGenerator->generateFromFile()
-
-sub TestGenerateFromFiles {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<body>
- <h1>Chapter of document 1</h1>
-</body>
-EOT
-
- # Assemble test file 2
- open(FILE, ">$filename2") || die "Can't create $filename2: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body>
- <h1>Chapter of document 2</h1>
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # Set ToC options
- $toc->setOptions({'doLinkToFile' => 1});
- # Generate ToC
- $tocGenerator->generateFromFile($toc, [$filename, $filename2]);
- # Test ToC
- ok($toc->format(), <<EOT);
-
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=tmp.htm#h-1>Chapter of document 1</a>
- <li><a href=tmp2.htm#h-2>Chapter of document 2</a>
-</ul>
-<!-- End of generated Table of Contents -->
-EOT
-} # TestGenerateFromFiles()
-
-
-#--- TestGenerateFromFiles() --------------------------------------------------
-# function: Test 'HTML::TocGenerator->generateFromFile() using multiple files.
-
-sub TestGenerateFromFile {
- # Assemble test file 1
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body>
- <h1>Chapter</h1>
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # 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</a>
-</ul>
-<!-- End of generated Table of Contents -->
-EOT
-} # TestGenerateFromFile()
-
-
-#--- TestInsertIntoFile() -----------------------------------------------------
-# function: Test 'HTML::TocInsertor->insertIntoFile()
-
-sub TestInsertIntoFile {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body>
- <h1>Chapter</h1>
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocInsertor = HTML::TocInsertor->new();
- my $output;
-
- # Generate ToC
- $tocInsertor->insertIntoFile($toc, $filename, {'output' => \$output});
- # Test ToC
- ok($output, <<EOT);
-<html>
-<body>
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#h-1>Chapter</a>
-</ul>
-<!-- End of generated Table of Contents -->
-
- <a name=h-1><h1>Chapter</h1></a>
-</body>
-</html>
-EOT
-} # TestInsertIntoFile()
-
-
-#--- TestInsertIntoFileUsingTocUpdator() --------------------------------------
-# function: Test 'HTML::TocUpdator->insertIntoFile()
-
-sub TestInsertIntoFileUsingTocUpdator {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body>
- <h1>
- Chapter
- </h1>
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocUpdator = HTML::TocUpdator->new();
- my $output;
-
- # Generate ToC
- $tocUpdator->insertIntoFile($toc, $filename, {'output' => \$output});
- # Test ToC
- ok($output, <<EOT);
-<html>
-<body><!-- #BeginToc -->
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#h-1> Chapter </a>
-</ul>
-<!-- End of generated Table of Contents -->
-<!-- #EndToc -->
- <!-- #BeginTocAnchorNameBegin --><a name=h-1><!-- #EndTocAnchorNameBegin --><h1>
- Chapter
- </h1><!-- #BeginTocAnchorNameEnd --></a><!-- #EndTocAnchorNameEnd -->
-</body>
-</html>
-EOT
-} # TestInsertIntoFileUsingTocUpdator()
-
-
-#--- TestGlobalGroups0() ------------------------------------------------------
-# function: Test 'HTML::TocGenerator' option 'doUseGroupsGlobal = 0'.
-
-sub TestGlobalGroups0 {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<h1>Chapter</h1>
-<h2>Paragraph</h2>
-EOT
-
- # Create objects
- my $toc1 = HTML::Toc->new();
- my $toc2 = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # Set options
- $toc1->setOptions({
- 'header' => '',
- 'footer' => '',
- 'tokenToToc' => [{'tokenBegin' => '<h1>'}]
- });
- $toc2->setOptions({
- 'header' => '',
- 'footer' => '',
- 'tokenToToc' => [{'tokenBegin' => '<h2>'}]
- });
- # Generate ToC
- $tocGenerator->generateFromFile([$toc1, $toc2], $filename);
- # Test ToC
- ok($toc1->format() . $toc2->format() . "\n", <<'EOT');
-<ul>
- <li><a href=#h-1>Chapter</a>
-</ul><ul>
- <li><a href=#h-1>Paragraph</a>
-</ul>
-EOT
-} # TestGlobalGroups0()
-
-
-#--- TestGlobalGroups1() ------------------------------------------------------
-# function: Test 'HTML::TocGenerator' option 'doUseGroupsGlobal = 0'.
-
-sub TestGlobalGroups1 {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT';
-<h1>Chapter</h1>
-<h2>Paragraph</h2>
-EOT
- close(FILE);
-
- # Create objects
- my $toc1 = HTML::Toc->new();
- my $toc2 = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # Set options
- $toc1->setOptions({
- 'header' => '',
- 'footer' => '',
- 'tokenToToc' => [{'tokenBegin' => '<h1>'}]
- });
- $toc2->setOptions({
- 'header' => '',
- 'footer' => '',
- 'tokenToToc' => [{'tokenBegin' => '<h2>'}]
- });
- # Generate ToC
- $tocGenerator->generateFromFile(
- [$toc1, $toc2], $filename, {'doUseGroupsGlobal' => 1}
- );
- # Test ToC
- ok($toc1->format() . $toc2->format() . "\n", <<'EOT');
-<ul>
- <li><a href=#h-1>Chapter</a>
-</ul><ul>
- <li><a href=#h-2>Paragraph</a>
-</ul>
-EOT
-} # TestGlobalGroups1()
-
-
-#--- TestMultipleGroupsAppendix() ---------------------------------------------
-# function: Test multiple ToCs
-
-sub TestMultipleGroupsAppendix() {
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocInsertor = HTML::TocInsertor->new();
- my $output;
-
- # Set ToC options
- $toc->setOptions({
- 'tokenToToc' => [{
- 'tokenBegin' => '<h1 class=-appendix>'
- }, {
- 'tokenBegin' => '<h2 class=-appendix>',
- 'level' => 2
- }, {
- 'groupId' => 'appendix',
- 'tokenBegin' => '<h1 class=appendix>',
- }, {
- 'groupId' => 'appendix',
- 'tokenBegin' => '<h2 class=appendix>',
- 'level' => 2
- }],
- });
- # Generate ToC
- $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
-<body>
- <h1>Chapter</h1>
- <h2>Paragraph</h2>
- <h3>Subparagraph</h3>
- <h1>Chapter</h1>
- <h1 class=appendix>Appendix Chapter</h1>
- <h2 class=appendix>Appendix Paragraph</h2>
-</body>
-EOT
- # Test ToC
- ok($output, <<EOT);
-<body>
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#h-1>Chapter</a>
- <ul>
- <li><a href=#h-1.1>Paragraph</a>
- </ul>
- <li><a href=#h-2>Chapter</a>
-</ul>
-<ul>
- <li><a href=#appendix-1>Appendix Chapter</a>
- <ul>
- <li><a href=#appendix-1.1>Appendix Paragraph</a>
- </ul>
-</ul>
-<!-- End of generated Table of Contents -->
-
- <a name=h-1><h1>Chapter</h1></a>
- <a name=h-1.1><h2>Paragraph</h2></a>
- <h3>Subparagraph</h3>
- <a name=h-2><h1>Chapter</h1></a>
- <a name=appendix-1><h1 class=appendix>Appendix Chapter</h1></a>
- <a name=appendix-1.1><h2 class=appendix>Appendix Paragraph</h2></a>
-</body>
-EOT
-} # TestMultipleGroupsAppendix()
-
-
-#--- TestMultipleGroupsPart() -------------------------------------------------
-# function: Test multiple ToCs
-
-sub TestMultipleGroupsPart() {
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocInsertor = HTML::TocInsertor->new();
- my $output;
-
- # Set ToC options
- $toc->setOptions({
- 'tokenToToc' => [{
- 'tokenBegin' => '<h1 class=-part>'
- }, {
- 'tokenBegin' => '<h2 class=-part>',
- 'level' => 2,
- }, {
- 'groupId' => 'part',
- 'tokenBegin' => '<h1 class=part>',
- 'level' => 1,
- 'doNumberToken' => 1,
- 'numberingStyle' => 'upper-alpha'
- }]
- });
- # Generate ToC
- $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
-<body>
- <h1 class=part>First Part</h1>
- <h1>Chapter</h1>
- <h2>Paragraph</h2>
- <h1 class=part>Second Part</h1>
- <h1>Chapter</h1>
- <h2>Paragraph</h2>
-</body>
-EOT
- # Test ToC
- ok($output, <<EOT);
-<body>
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#part-A>First Part</a>
-</ul>
-<ul>
- <li><a href=#h-1>Chapter</a>
- <ul>
- <li><a href=#h-1.1>Paragraph</a>
- </ul>
-</ul>
-<ul>
- <li><a href=#part-B>Second Part</a>
-</ul>
-<ul>
- <li><a href=#h-2>Chapter</a>
- <ul>
- <li><a href=#h-2.1>Paragraph</a>
- </ul>
-</ul>
-<!-- End of generated Table of Contents -->
-
- <a name=part-A><h1 class=part>A &nbsp;First Part</h1></a>
- <a name=h-1><h1>Chapter</h1></a>
- <a name=h-1.1><h2>Paragraph</h2></a>
- <a name=part-B><h1 class=part>B &nbsp;Second Part</h1></a>
- <a name=h-2><h1>Chapter</h1></a>
- <a name=h-2.1><h2>Paragraph</h2></a>
-</body>
-EOT
-} # TestMultipleGroupsPart()
-
-
-#--- TestMultipleTocs() -------------------------------------------------------
-# function: Test multiple ToCs
-
-sub TestMultipleTocs() {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<body>
- <h1>Header One</h1>
- <img src=test1.gif alt="First picture">
- <h2>Paragraph One</h2>
- <img src=test2.gif alt="Second picture">
-</body>
-EOT
-
- # Create objects
- my $toc1 = HTML::Toc->new();
- my $toc2 = HTML::Toc->new();
- my $tocInsertor = HTML::TocInsertor->new();
- my $output;
-
- # Set ToC options
- $toc2->setOptions({
- 'tokenToToc' => [{
- 'groupId' => 'image',
- 'tokenBegin' => '<img alt=@>'
- }],
- });
- # Generate ToC
- $tocInsertor->insertIntoFile(
- [$toc1, $toc2], $filename, {'output' => \$output}
- );
- # Test ToC
- ok($output, <<EOT);
-<body>
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#h-1>Header One</a>
- <ul>
- <li><a href=#h-1.1>Paragraph One</a>
- </ul>
-</ul>
-<!-- End of generated Table of Contents -->
-
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#image-1>First picture</a>
- <li><a href=#image-2>Second picture</a>
-</ul>
-<!-- End of generated Table of Contents -->
-
- <a name=h-1><h1>Header One</h1></a>
- <a name=image-1><img src=test1.gif alt="First picture"></a>
- <a name=h-1.1><h2>Paragraph One</h2></a>
- <a name=image-2><img src=test2.gif alt="Second picture"></a>
-</body>
-EOT
-} # TestMultipleTocs()
-
-
-#--- TestSpecifyNumberedList() ------------------------------------------------
-# function: Test specifying numbered list.
-
-sub TestSpecifyNumberedList {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<body>
- <h1>Chapter</h1>
- <h2>Paragraph</h2>
-</body>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocGenerator = HTML::TocGenerator->new();
-
- # Set ToC options
- $toc->setOptions({
- 'templateLevelBegin' => '"<ol>\n"',
- 'templateLevelEnd' => '"</ol>\n"',
- });
- # Generate ToC
- $tocGenerator->generateFromFile($toc, $filename);
- # Test ToC
- ok($toc->format(), <<EOT);
-
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ol>
- <li><a href=#h-1>Chapter</a>
- <ol>
- <li><a href=#h-1.1>Paragraph</a>
- </ol>
-</ol>
-<!-- End of generated Table of Contents -->
-EOT
-} # TestSpecifyNumberedList()
-
-
-#--- TestUpdateFile() ---------------------------------------------------------
-# function: Test 'HTML::TocUpdator->updateFile()'
-
-sub TestUpdateFile {
- # Assemble test file
- open(FILE, ">$filename") || die "Can't create $filename: $!";
- print FILE <<'EOT'; close(FILE);
-<html>
-<body><!-- #BeginToc -->
-foo
-<!-- #EndToc -->
- <!-- #BeginTocAnchorNameBegin -->bar<!-- #EndTocAnchorNameBegin --><h1>
- Chapter
- </h1><!-- #BeginTocAnchorNameEnd -->foo<!-- #EndTocAnchorNameEnd -->
-</body>
-</html>
-EOT
-
- # Create objects
- my $toc = HTML::Toc->new();
- my $tocUpdator = HTML::TocUpdator->new();
- my $output;
-
- # Generate ToC
- $tocUpdator->updateFile($toc, $filename, {'output' => \$output});
- # Test ToC
- ok($output, <<EOT);
-<html>
-<body><!-- #BeginToc -->
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ul>
- <li><a href=#h-1> Chapter </a>
-</ul>
-<!-- End of generated Table of Contents -->
-<!-- #EndToc -->
- <!-- #BeginTocAnchorNameBegin --><a name=h-1><!-- #EndTocAnchorNameBegin --><h1>
- Chapter
- </h1><!-- #BeginTocAnchorNameEnd --></a><!-- #EndTocAnchorNameEnd -->
-</body>
-</html>
-EOT
-} # TestUpdateFile()
-
-
-#--- TestUsingCSS() -----------------------------------------------------------
-# function: Test multiple ToCs
-
-sub TestUsingCSS() {
-
- # Create objects
- my $toc = new HTML::Toc;
- my $tocInsertor = new HTML::TocInsertor;
- my $output;
-
- $toc->setOptions({
- 'templateLevelBegin' => '"<ol class=toc_$groupId$level>\n"',
- 'templateLevelEnd' => '"</ol>\n"',
- 'doNumberToken' => 1,
- 'tokenToToc' => [{
- 'groupId' => 'appendix',
- 'tokenBegin' => '<h1>',
- 'numberingStyle' => 'upper-alpha'
- }, {
- 'groupId' => 'appendix',
- 'tokenBegin' => '<h2>',
- 'level' => 2,
- }]
- });
- $tocInsertor->insert($toc, <<EOT);
-<html>
-<head>
- <style type="text/css">
- ol.toc_appendix1 { list-style-type: upper-alpha }
- </style>
-</head>
-<body>
- <h1>Appendix</h1>
- <h2>Appendix Paragraph</h2>
- <h1>Appendix</h1>
- <h2>Appendix Paragraph</h2>
-</body>
-</html>
-EOT
- # Insert ToC
- $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
-<html>
-<head>
- <style type="text/css">
- ol.toc_appendix1 { list-style-type: upper-alpha }
- </style>
-</head>
-<body>
- <h1>Appendix</h1>
- <h2>Appendix Paragraph</h2>
- <h1>Appendix</h1>
- <h2>Appendix Paragraph</h2>
-</body>
-</html>
-EOT
- # Test ToC
- ok($output, <<EOT);
-<html>
-<head>
- <style type="text/css">
- ol.toc_appendix1 { list-style-type: upper-alpha }
- </style>
-</head>
-<body>
-<!-- Table of Contents generated by Perl - HTML::Toc -->
-<ol class=toc_appendix1>
- <li><a href=#appendix-A>Appendix</a>
- <ol class=toc_appendix2>
- <li><a href=#appendix-A.1>Appendix Paragraph</a>
- </ol>
- <li><a href=#appendix-B>Appendix</a>
- <ol class=toc_appendix2>
- <li><a href=#appendix-B.1>Appendix Paragraph</a>
- </ol>
-</ol>
-<!-- End of generated Table of Contents -->
-
- <a name=appendix-A><h1>A &nbsp;Appendix</h1></a>
- <a name=appendix-A.1><h2>A.1 &nbsp;Appendix Paragraph</h2></a>
- <a name=appendix-B><h1>B &nbsp;Appendix</h1></a>
- <a name=appendix-B.1><h2>B.1 &nbsp;Appendix Paragraph</h2></a>
-</body>
-</html>
-EOT
-} # TestUsingCSS()
-
-
- # Test 'extendFromFile()'
-TestExtendFromFile();
- # Test 'generateFromFile()'
-TestGenerateFromFile();
- # Test 'generateFromFiles()'
-TestGenerateFromFiles();
- # Test 'doUseGroupsGlobal = 0'
-TestGlobalGroups0();
- # Test 'doUseGroupsGlobal = 1'
-TestGlobalGroups1();
- # Test 'tocInsertor->insertIntoFile'
-TestInsertIntoFile();
- # Test 'tocUpdator->insertIntoFile'
-TestInsertIntoFileUsingTocUpdator();
- # Test additional 'appendix' group
-TestMultipleGroupsAppendix();
- # Test additional 'part' group
-TestMultipleGroupsPart();
- # Test multiple ToCs
-TestMultipleTocs();
- # Test specifying numbered list
-TestSpecifyNumberedList();
- # Test 'updateFile()'
-TestUpdateFile();
- # Test using CSS
-TestUsingCSS();
« no previous file with comments | « source/libvpx/examples/includes/HTML-Toc-0.91/t/options.t ('k') | source/libvpx/examples/includes/HTML-Toc-0.91/t/propagate.t » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698