diff options
Diffstat (limited to 'chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/format.t')
-rw-r--r-- | chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/format.t | 157 |
1 files changed, 0 insertions, 157 deletions
diff --git a/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/format.t b/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/format.t deleted file mode 100644 index 62d2b6c7a81..00000000000 --- a/chromium/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/format.t +++ /dev/null @@ -1,157 +0,0 @@ -#--- format.t ----------------------------------------------------------------- -# function: Test ToC formatting. - -use strict; -use Test; - -BEGIN { plan tests => 6; } - -use HTML::Toc; -use HTML::TocGenerator; -use HTML::TocInsertor; - -my ($output, $content, $filename); -my $toc = HTML::Toc->new; -my $tocGenerator = HTML::TocGenerator->new; -my $tocInsertor = HTML::TocInsertor->new; - -$toc->setOptions({ - 'doLinkToToken' => 0, - 'levelIndent' => 0, - 'insertionPoint' => 'before <h1>', - 'header' => '', - 'footer' => '', -}); - - -BEGIN { - # Create test file - $filename = "file$$.htm"; - die "$filename is already there" if -e $filename; - open(FILE, ">$filename") || die "Can't create $filename: $!"; - print FILE <<'EOT'; close(FILE); -<h1>Header</h1> -EOT -} - - -END { - # Remove test file - unlink($filename) or warn "Can't unlink $filename: $!"; -} - - -#--- 1. templateLevelBegin ---------------------------------------------------- - -$toc->setOptions({ - 'templateLevelBegin' => '"<ul class=toc_$groupId$level>\n"' -}); -$tocInsertor->insert($toc, "<h1>Header</h1>", {'output' => \$output}); -ok($output, "<ul class=toc_h1>\n<li>Header\n</ul><h1>Header</h1>"); -$toc->setOptions({'templateLevelBegin' => undef}); - - -#--- 2. levelToToc ----------------------------------------------------------- - -$tocGenerator->generate($toc, "<h1>Header1</h1>\n<h2>Header2</h2>"); -$toc->setOptions({'levelToToc' => '1'}); -ok($toc->format(), "<ul>\n<li>Header1\n</ul>"); -$toc->setOptions({'levelToToc' => '.*'}); - - -#--- 3. groupToToc ----------------------------------------------------------- - -$toc->setOptions({ - 'tokenToToc' => [{ - 'level' => 1, - 'tokenBegin' => '<h1 class=-foo>' - }, { - 'groupId' => 'foo', - 'level' => 1, - 'tokenBegin' => '<h1 class=foo>' - }] -}); -$tocGenerator->generate($toc, "<h1>Header1</h1>\n<h1 class=foo>Foo</h1>"); -$toc->setOptions({'groupToToc' => 'foo'}); -ok($toc->format(), "<ul>\n<li>Foo\n</ul>"); -$toc->setOptions({'groupToToc' => '.*'}); - - -#--- 4. header & footer ------------------------------------------------------- - -$toc->setOptions({ - 'tokenToToc' => [{ - 'level' => 1, - 'tokenBegin' => '<h1>' - }], - 'header' => '<!-- TocHeader -->', - 'footer' => '<!-- TocFooter -->', -}); -$tocInsertor->insert($toc, "<h1>Header1</h1>", {'output' => \$output}); -ok("$output\n", <<EOT); -<!-- TocHeader --><ul> -<li>Header1 -</ul><!-- TocFooter --><h1>Header1</h1> -EOT - - - # Test 'doSingleStepLevel' => 1 -TestSingleStepLevel1(); - # Test 'doSingleStepLevel' => 0 -TestSingleStepLevel0(); - - -#--- 5. TestSingleStepLevel1 -------------------------------------------------- - -sub TestSingleStepLevel1 { - my $toc = new HTML::Toc; - my $tocGenerator = new HTML::TocGenerator; - - # Generate ToC - $tocGenerator->generate($toc, <<EOT); -<h1>Header 1</h1> -<h3>Header 3</h3> -EOT - # Compare output - ok($toc->format(), <<EOT); - -<!-- Table of Contents generated by Perl - HTML::Toc --> -<ul> - <li><a href=#h-1>Header 1</a> - <ul> - <ul> - <li><a href=#h-1.0.1>Header 3</a> - </ul> - </ul> -</ul> -<!-- End of generated Table of Contents --> -EOT -} # TestSingleStepLevel1() - - -#--- 6. TestSingleStepLevel0 -------------------------------------------------- - -sub TestSingleStepLevel0 { - my $toc = new HTML::Toc; - my $tocGenerator = new HTML::TocGenerator; - - # Set ToC options - $toc->setOptions({'doSingleStepLevel' => 0}); - # Generate ToC - $tocGenerator->generate($toc, <<EOT); -<h1>Header 1</h1> -<h3>Header 3</h3> -EOT - # Compare output - ok($toc->format(), <<EOT); - -<!-- Table of Contents generated by Perl - HTML::Toc --> -<ul> - <li><a href=#h-1>Header 1</a> - <ul> - <li><a href=#h-1.0.1>Header 3</a> - </ul> -</ul> -<!-- End of generated Table of Contents --> -EOT -} # TestSingleStepLevel0() |