src/third_party/libvpx/source/libvpx/examples/includes/HTML-Toc-0.91/t/podExamples.t

   1 #--- podExamples.t ------------------------------------------------------------
   2 # function: Test HTML::ToC.  In particular test the examples as described in
   3 #           the POD documentation.
   4
   5 use strict;
   6 use Test;
   7
   8 BEGIN { plan tests => 13; }
   9
  10 use HTML::Toc;
  11 use HTML::TocGenerator;
  12 use HTML::TocInsertor;
  13 use HTML::TocUpdator;
  14
  15 my ($filename, $filename2);
  16
  17
  18 BEGIN {
  19                 # Create test file
  20         $filename = "tmp.htm";
  21         die "$filename is already there" if -e $filename;
  22                 # Create test file 2
  23         $filename2 = "tmp2.htm";
  24         die "$filename2 is already there" if -e $filename2;
  25 }
  26
  27
  28 END {
  29                 # Remove test file
  30         unlink($filename) or warn "Can't unlink $filename: $!";
  31                 # Remove test file 2
  32         unlink($filename2) or warn "Can't unlink $filename2: $!";
  33 }
  34
  35
  36 #--- TestExtendFromFile() --------------------------------------------------
  37 # function: Test 'HTML::TocGenerator->extendFromFile()
  38
  39 sub TestExtendFromFile {
  40                 # Assemble test file
  41         open(FILE, ">$filename") || die "Can't create $filename: $!";
  42         print FILE <<'EOT'; close(FILE);
  43 <body>
  44    <h1>Chapter of document 1</h1>
  45 </body>
  46 EOT
  47
  48                 # Assemble test file 2
  49         open(FILE, ">$filename2") || die "Can't create $filename2: $!";
  50         print FILE <<'EOT'; close(FILE);
  51 <html>
  52 <body>
  53    <h1>Chapter of document 2</h1>
  54 </body>
  55 </html>
  56 EOT
  57
  58                 # Create objects
  59         my $toc          = HTML::Toc->new();
  60         my $tocGenerator = HTML::TocGenerator->new();
  61
  62                 # Set ToC options
  63    $toc->setOptions({'doLinkToFile' => 1});
  64                 # Generate ToC
  65         $tocGenerator->generateFromFile($toc, $filename);
  66         $tocGenerator->extendFromFile($toc, $filename2);
  67                 # Test ToC
  68         ok($toc->format(), <<EOT);
  69
  70 <!-- Table of Contents generated by Perl - HTML::Toc -->
  71 <ul>
  72    <li><a href=tmp.htm#h-1>Chapter of document 1</a>
  73    <li><a href=tmp2.htm#h-2>Chapter of document 2</a>
  74 </ul>
  75 <!-- End of generated Table of Contents -->
  76 EOT
  77 }  # TestExtendFromFile()
  78
  79
  80 #--- TestGenerateFromFiles() --------------------------------------------------
  81 # function: Test 'HTML::TocGenerator->generateFromFile()
  82
  83 sub TestGenerateFromFiles {
  84                 # Assemble test file
  85         open(FILE, ">$filename") || die "Can't create $filename: $!";
  86         print FILE <<'EOT'; close(FILE);
  87 <body>
  88    <h1>Chapter of document 1</h1>
  89 </body>
  90 EOT
  91
  92                 # Assemble test file 2
  93         open(FILE, ">$filename2") || die "Can't create $filename2: $!";
  94         print FILE <<'EOT'; close(FILE);
  95 <html>
  96 <body>
  97    <h1>Chapter of document 2</h1>
  98 </body>
  99 </html>
 100 EOT
 101
 102                 # Create objects
 103         my $toc          = HTML::Toc->new();
 104         my $tocGenerator = HTML::TocGenerator->new();
 105
 106                 # Set ToC options
 107    $toc->setOptions({'doLinkToFile' => 1});
 108                 # Generate ToC
 109         $tocGenerator->generateFromFile($toc, [$filename, $filename2]);
 110                 # Test ToC
 111         ok($toc->format(), <<EOT);
 112
 113 <!-- Table of Contents generated by Perl - HTML::Toc -->
 114 <ul>
 115    <li><a href=tmp.htm#h-1>Chapter of document 1</a>
 116    <li><a href=tmp2.htm#h-2>Chapter of document 2</a>
 117 </ul>
 118 <!-- End of generated Table of Contents -->
 119 EOT
 120 }  # TestGenerateFromFiles()
 121
 122
 123 #--- TestGenerateFromFiles() --------------------------------------------------
 124 # function: Test 'HTML::TocGenerator->generateFromFile() using multiple files.
 125
 126 sub TestGenerateFromFile {
 127                 # Assemble test file 1
 128         open(FILE, ">$filename") || die "Can't create $filename: $!";
 129         print FILE <<'EOT'; close(FILE);
 130 <html>
 131 <body>
 132    <h1>Chapter</h1>
 133 </body>
 134 </html>
 135 EOT
 136
 137                 # Create objects
 138         my $toc          = HTML::Toc->new();
 139         my $tocGenerator = HTML::TocGenerator->new();
 140
 141                 # Generate ToC
 142         $tocGenerator->generateFromFile($toc, $filename);
 143                 # Test ToC
 144         ok($toc->format(), <<EOT);
 145
 146 <!-- Table of Contents generated by Perl - HTML::Toc -->
 147 <ul>
 148    <li><a href=#h-1>Chapter</a>
 149 </ul>
 150 <!-- End of generated Table of Contents -->
 151 EOT
 152 }  # TestGenerateFromFile()
 153
 154
 155 #--- TestInsertIntoFile() -----------------------------------------------------
 156 # function: Test 'HTML::TocInsertor->insertIntoFile()
 157
 158 sub TestInsertIntoFile {
 159                 # Assemble test file
 160         open(FILE, ">$filename") || die "Can't create $filename: $!";
 161         print FILE <<'EOT'; close(FILE);
 162 <html>
 163 <body>
 164    <h1>Chapter</h1>
 165 </body>
 166 </html>
 167 EOT
 168
 169                 # Create objects
 170         my $toc         = HTML::Toc->new();
 171         my $tocInsertor = HTML::TocInsertor->new();
 172         my $output;
 173
 174                 # Generate ToC
 175         $tocInsertor->insertIntoFile($toc, $filename, {'output' => \$output});
 176                 # Test ToC
 177         ok($output, <<EOT);
 178 <html>
 179 <body>
 180 <!-- Table of Contents generated by Perl - HTML::Toc -->
 181 <ul>
 182    <li><a href=#h-1>Chapter</a>
 183 </ul>
 184 <!-- End of generated Table of Contents -->
 185
 186    <a name=h-1><h1>Chapter</h1></a>
 187 </body>
 188 </html>
 189 EOT
 190 }  # TestInsertIntoFile()
 191
 192
 193 #--- TestInsertIntoFileUsingTocUpdator() --------------------------------------
 194 # function: Test 'HTML::TocUpdator->insertIntoFile()
 195
 196 sub TestInsertIntoFileUsingTocUpdator {
 197                 # Assemble test file
 198         open(FILE, ">$filename") || die "Can't create $filename: $!";
 199         print FILE <<'EOT'; close(FILE);
 200 <html>
 201 <body>
 202    <h1>
 203    Chapter
 204    </h1>
 205 </body>
 206 </html>
 207 EOT
 208
 209                 # Create objects
 210         my $toc        = HTML::Toc->new();
 211         my $tocUpdator = HTML::TocUpdator->new();
 212         my $output;
 213
 214                 # Generate ToC
 215         $tocUpdator->insertIntoFile($toc, $filename, {'output' => \$output});
 216                 # Test ToC
 217         ok($output, <<EOT);
 218 <html>
 219 <body><!-- #BeginToc -->
 220 <!-- Table of Contents generated by Perl - HTML::Toc -->
 221 <ul>
 222    <li><a href=#h-1> Chapter </a>
 223 </ul>
 224 <!-- End of generated Table of Contents -->
 225 <!-- #EndToc -->
 226    <!-- #BeginTocAnchorNameBegin --><a name=h-1><!-- #EndTocAnchorNameBegin --><h1>
 227    Chapter
 228    </h1><!-- #BeginTocAnchorNameEnd --></a><!-- #EndTocAnchorNameEnd -->
 229 </body>
 230 </html>
 231 EOT
 232 }  # TestInsertIntoFileUsingTocUpdator()
 233
 234
 235 #--- TestGlobalGroups0() ------------------------------------------------------
 236 # function: Test 'HTML::TocGenerator' option 'doUseGroupsGlobal = 0'.
 237
 238 sub TestGlobalGroups0 {
 239                 # Assemble test file
 240         open(FILE, ">$filename") || die "Can't create $filename: $!";
 241         print FILE <<'EOT'; close(FILE);
 242 <h1>Chapter</h1>
 243 <h2>Paragraph</h2>
 244 EOT
 245
 246                 # Create objects
 247         my $toc1         = HTML::Toc->new();
 248         my $toc2         = HTML::Toc->new();
 249         my $tocGenerator = HTML::TocGenerator->new();
 250
 251                 # Set options
 252         $toc1->setOptions({
 253                 'header'      => '',
 254                 'footer'      => '',
 255                 'tokenToToc' => [{'tokenBegin' => '<h1>'}]
 256         });
 257         $toc2->setOptions({
 258                 'header'      => '',
 259                 'footer'      => '',
 260                 'tokenToToc' => [{'tokenBegin' => '<h2>'}]
 261         });
 262                 # Generate ToC
 263         $tocGenerator->generateFromFile([$toc1, $toc2], $filename);
 264                 # Test ToC
 265         ok($toc1->format() . $toc2->format() . "\n", <<'EOT');
 266 <ul>
 267    <li><a href=#h-1>Chapter</a>
 268 </ul><ul>
 269    <li><a href=#h-1>Paragraph</a>
 270 </ul>
 271 EOT
 272 }       # TestGlobalGroups0()
 273
 274
 275 #--- TestGlobalGroups1() ------------------------------------------------------
 276 # function: Test 'HTML::TocGenerator' option 'doUseGroupsGlobal = 0'.
 277
 278 sub TestGlobalGroups1 {
 279                 # Assemble test file
 280         open(FILE, ">$filename") || die "Can't create $filename: $!";
 281         print FILE <<'EOT';
 282 <h1>Chapter</h1>
 283 <h2>Paragraph</h2>
 284 EOT
 285         close(FILE);
 286
 287                 # Create objects
 288         my $toc1         = HTML::Toc->new();
 289         my $toc2         = HTML::Toc->new();
 290         my $tocGenerator = HTML::TocGenerator->new();
 291
 292                 # Set options
 293         $toc1->setOptions({
 294                 'header'      => '',
 295                 'footer'      => '',
 296                 'tokenToToc' => [{'tokenBegin' => '<h1>'}]
 297         });
 298         $toc2->setOptions({
 299                 'header'      => '',
 300                 'footer'      => '',
 301                 'tokenToToc' => [{'tokenBegin' => '<h2>'}]
 302         });
 303                 # Generate ToC
 304         $tocGenerator->generateFromFile(
 305                 [$toc1, $toc2], $filename, {'doUseGroupsGlobal' => 1}
 306         );
 307                 # Test ToC
 308         ok($toc1->format() . $toc2->format() . "\n", <<'EOT');
 309 <ul>
 310    <li><a href=#h-1>Chapter</a>
 311 </ul><ul>
 312    <li><a href=#h-2>Paragraph</a>
 313 </ul>
 314 EOT
 315 }       # TestGlobalGroups1()
 316
 317
 318 #--- TestMultipleGroupsAppendix() ---------------------------------------------
 319 # function: Test multiple ToCs
 320
 321 sub TestMultipleGroupsAppendix() {
 322                 # Create objects
 323         my $toc         = HTML::Toc->new();
 324         my $tocInsertor = HTML::TocInsertor->new();
 325         my $output;
 326
 327                 # Set ToC options
 328         $toc->setOptions({
 329                 'tokenToToc' => [{
 330                                 'tokenBegin' => '<h1 class=-appendix>'
 331                         }, {
 332                                 'tokenBegin' => '<h2 class=-appendix>',
 333                                 'level'      => 2
 334                         }, {
 335                                 'groupId'    => 'appendix',
 336                                 'tokenBegin' => '<h1 class=appendix>',
 337                         }, {
 338                                 'groupId'    => 'appendix',
 339                                 'tokenBegin' => '<h2 class=appendix>',
 340                                 'level'      => 2
 341                         }],
 342         });
 343                 # Generate ToC
 344         $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
 345 <body>
 346    <h1>Chapter</h1>
 347    <h2>Paragraph</h2>
 348    <h3>Subparagraph</h3>
 349    <h1>Chapter</h1>
 350    <h1 class=appendix>Appendix Chapter</h1>
 351    <h2 class=appendix>Appendix Paragraph</h2>
 352 </body>
 353 EOT
 354                 # Test ToC
 355         ok($output, <<EOT);
 356 <body>
 357 <!-- Table of Contents generated by Perl - HTML::Toc -->
 358 <ul>
 359    <li><a href=#h-1>Chapter</a>
 360    <ul>
 361       <li><a href=#h-1.1>Paragraph</a>
 362    </ul>
 363    <li><a href=#h-2>Chapter</a>
 364 </ul>
 365 <ul>
 366    <li><a href=#appendix-1>Appendix Chapter</a>
 367    <ul>
 368       <li><a href=#appendix-1.1>Appendix Paragraph</a>
 369    </ul>
 370 </ul>
 371 <!-- End of generated Table of Contents -->
 372
 373    <a name=h-1><h1>Chapter</h1></a>
 374    <a name=h-1.1><h2>Paragraph</h2></a>
 375    <h3>Subparagraph</h3>
 376    <a name=h-2><h1>Chapter</h1></a>
 377    <a name=appendix-1><h1 class=appendix>Appendix Chapter</h1></a>
 378    <a name=appendix-1.1><h2 class=appendix>Appendix Paragraph</h2></a>
 379 </body>
 380 EOT
 381 }  # TestMultipleGroupsAppendix()
 382
 383
 384 #--- TestMultipleGroupsPart() -------------------------------------------------
 385 # function: Test multiple ToCs
 386
 387 sub TestMultipleGroupsPart() {
 388                 # Create objects
 389         my $toc         = HTML::Toc->new();
 390         my $tocInsertor = HTML::TocInsertor->new();
 391         my $output;
 392
 393                 # Set ToC options
 394         $toc->setOptions({
 395                 'tokenToToc' => [{
 396                                 'tokenBegin' => '<h1 class=-part>'
 397                         }, {
 398                                 'tokenBegin' => '<h2 class=-part>',
 399                                 'level'      => 2,
 400                         }, {
 401                                 'groupId'        => 'part',
 402                                 'tokenBegin'     => '<h1 class=part>',
 403                                 'level'          => 1,
 404                                 'doNumberToken'  => 1,
 405                                 'numberingStyle' => 'upper-alpha'
 406                         }]
 407         });
 408                 # Generate ToC
 409         $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
 410 <body>
 411    <h1 class=part>First Part</h1>
 412    <h1>Chapter</h1>
 413    <h2>Paragraph</h2>
 414    <h1 class=part>Second Part</h1>
 415    <h1>Chapter</h1>
 416    <h2>Paragraph</h2>
 417 </body>
 418 EOT
 419                 # Test ToC
 420         ok($output, <<EOT);
 421 <body>
 422 <!-- Table of Contents generated by Perl - HTML::Toc -->
 423 <ul>
 424    <li><a href=#part-A>First Part</a>
 425 </ul>
 426 <ul>
 427    <li><a href=#h-1>Chapter</a>
 428    <ul>
 429       <li><a href=#h-1.1>Paragraph</a>
 430    </ul>
 431 </ul>
 432 <ul>
 433    <li><a href=#part-B>Second Part</a>
 434 </ul>
 435 <ul>
 436    <li><a href=#h-2>Chapter</a>
 437    <ul>
 438       <li><a href=#h-2.1>Paragraph</a>
 439    </ul>
 440 </ul>
 441 <!-- End of generated Table of Contents -->
 442
 443    <a name=part-A><h1 class=part>A &nbsp;First Part</h1></a>
 444    <a name=h-1><h1>Chapter</h1></a>
 445    <a name=h-1.1><h2>Paragraph</h2></a>
 446    <a name=part-B><h1 class=part>B &nbsp;Second Part</h1></a>
 447    <a name=h-2><h1>Chapter</h1></a>
 448    <a name=h-2.1><h2>Paragraph</h2></a>
 449 </body>
 450 EOT
 451 }  # TestMultipleGroupsPart()
 452
 453
 454 #--- TestMultipleTocs() -------------------------------------------------------
 455 # function: Test multiple ToCs
 456
 457 sub TestMultipleTocs() {
 458                 # Assemble test file
 459         open(FILE, ">$filename") || die "Can't create $filename: $!";
 460         print FILE <<'EOT'; close(FILE);
 461 <body>
 462    <h1>Header One</h1>
 463    <img src=test1.gif alt="First picture">
 464    <h2>Paragraph One</h2>
 465    <img src=test2.gif alt="Second picture">
 466 </body>
 467 EOT
 468
 469                 # Create objects
 470         my $toc1        = HTML::Toc->new();
 471         my $toc2        = HTML::Toc->new();
 472         my $tocInsertor = HTML::TocInsertor->new();
 473         my $output;
 474
 475                 # Set ToC options
 476         $toc2->setOptions({
 477                 'tokenToToc'             => [{
 478                         'groupId'    => 'image',
 479                         'tokenBegin' => '<img alt=@>'
 480                 }],
 481         });
 482                 # Generate ToC
 483         $tocInsertor->insertIntoFile(
 484                 [$toc1, $toc2], $filename, {'output' => \$output}
 485         );
 486                 # Test ToC
 487         ok($output, <<EOT);
 488 <body>
 489 <!-- Table of Contents generated by Perl - HTML::Toc -->
 490 <ul>
 491    <li><a href=#h-1>Header One</a>
 492    <ul>
 493       <li><a href=#h-1.1>Paragraph One</a>
 494    </ul>
 495 </ul>
 496 <!-- End of generated Table of Contents -->
 497
 498 <!-- Table of Contents generated by Perl - HTML::Toc -->
 499 <ul>
 500    <li><a href=#image-1>First picture</a>
 501    <li><a href=#image-2>Second picture</a>
 502 </ul>
 503 <!-- End of generated Table of Contents -->
 504
 505    <a name=h-1><h1>Header One</h1></a>
 506    <a name=image-1><img src=test1.gif alt="First picture"></a>
 507    <a name=h-1.1><h2>Paragraph One</h2></a>
 508    <a name=image-2><img src=test2.gif alt="Second picture"></a>
 509 </body>
 510 EOT
 511 }  # TestMultipleTocs()
 512
 513
 514 #--- TestSpecifyNumberedList() ------------------------------------------------
 515 # function: Test specifying numbered list.
 516
 517 sub TestSpecifyNumberedList {
 518                 # Assemble test file
 519         open(FILE, ">$filename") || die "Can't create $filename: $!";
 520         print FILE <<'EOT'; close(FILE);
 521 <body>
 522    <h1>Chapter</h1>
 523         <h2>Paragraph</h2>
 524 </body>
 525 EOT
 526
 527                 # Create objects
 528         my $toc        = HTML::Toc->new();
 529    my $tocGenerator = HTML::TocGenerator->new();
 530
 531                 # Set ToC options
 532         $toc->setOptions({
 533                 'templateLevelBegin' => '"<ol>\n"',
 534                 'templateLevelEnd'   => '"</ol>\n"',
 535         });
 536                 # Generate ToC
 537         $tocGenerator->generateFromFile($toc, $filename);
 538                 # Test ToC
 539         ok($toc->format(), <<EOT);
 540
 541 <!-- Table of Contents generated by Perl - HTML::Toc -->
 542 <ol>
 543    <li><a href=#h-1>Chapter</a>
 544    <ol>
 545       <li><a href=#h-1.1>Paragraph</a>
 546    </ol>
 547 </ol>
 548 <!-- End of generated Table of Contents -->
 549 EOT
 550 }  # TestSpecifyNumberedList()
 551
 552
 553 #--- TestUpdateFile() ---------------------------------------------------------
 554 # function: Test 'HTML::TocUpdator->updateFile()'
 555
 556 sub TestUpdateFile {
 557                 # Assemble test file
 558         open(FILE, ">$filename") || die "Can't create $filename: $!";
 559         print FILE <<'EOT'; close(FILE);
 560 <html>
 561 <body><!-- #BeginToc -->
 562 foo
 563 <!-- #EndToc -->
 564    <!-- #BeginTocAnchorNameBegin -->bar<!-- #EndTocAnchorNameBegin --><h1>
 565    Chapter
 566    </h1><!-- #BeginTocAnchorNameEnd -->foo<!-- #EndTocAnchorNameEnd -->
 567 </body>
 568 </html>
 569 EOT
 570
 571                 # Create objects
 572         my $toc        = HTML::Toc->new();
 573         my $tocUpdator = HTML::TocUpdator->new();
 574         my $output;
 575
 576                 # Generate ToC
 577         $tocUpdator->updateFile($toc, $filename, {'output' => \$output});
 578                 # Test ToC
 579         ok($output, <<EOT);
 580 <html>
 581 <body><!-- #BeginToc -->
 582 <!-- Table of Contents generated by Perl - HTML::Toc -->
 583 <ul>
 584    <li><a href=#h-1> Chapter </a>
 585 </ul>
 586 <!-- End of generated Table of Contents -->
 587 <!-- #EndToc -->
 588    <!-- #BeginTocAnchorNameBegin --><a name=h-1><!-- #EndTocAnchorNameBegin --><h1>
 589    Chapter
 590    </h1><!-- #BeginTocAnchorNameEnd --></a><!-- #EndTocAnchorNameEnd -->
 591 </body>
 592 </html>
 593 EOT
 594 }  # TestUpdateFile()
 595
 596
 597 #--- TestUsingCSS() -----------------------------------------------------------
 598 # function: Test multiple ToCs
 599
 600 sub TestUsingCSS() {
 601
 602                 # Create objects
 603         my $toc          = new HTML::Toc;
 604         my $tocInsertor  = new HTML::TocInsertor;
 605         my $output;
 606
 607    $toc->setOptions({
 608                 'templateLevelBegin'   => '"<ol class=toc_$groupId$level>\n"',
 609                 'templateLevelEnd'     => '"</ol>\n"',
 610                 'doNumberToken'        => 1,
 611       'tokenToToc' => [{
 612                                 'groupId'        => 'appendix',
 613             'tokenBegin'     => '<h1>',
 614                                 'numberingStyle' => 'upper-alpha'
 615                         }, {
 616                                 'groupId'        => 'appendix',
 617             'tokenBegin'          => '<h2>',
 618             'level'               => 2,
 619          }]
 620    });
 621         $tocInsertor->insert($toc, <<EOT);
 622 <html>
 623 <head>
 624    <style type="text/css">
 625       ol.toc_appendix1 { list-style-type: upper-alpha }
 626    </style>
 627 </head>
 628 <body>
 629    <h1>Appendix</h1>
 630    <h2>Appendix Paragraph</h2>
 631    <h1>Appendix</h1>
 632    <h2>Appendix Paragraph</h2>
 633 </body>
 634 </html>
 635 EOT
 636                 # Insert ToC
 637         $tocInsertor->insert($toc, <<EOT, {'output' => \$output});
 638 <html>
 639 <head>
 640    <style type="text/css">
 641       ol.toc_appendix1 { list-style-type: upper-alpha }
 642    </style>
 643 </head>
 644 <body>
 645    <h1>Appendix</h1>
 646    <h2>Appendix Paragraph</h2>
 647    <h1>Appendix</h1>
 648    <h2>Appendix Paragraph</h2>
 649 </body>
 650 </html>
 651 EOT
 652                 # Test ToC
 653         ok($output, <<EOT);
 654 <html>
 655 <head>
 656    <style type="text/css">
 657       ol.toc_appendix1 { list-style-type: upper-alpha }
 658    </style>
 659 </head>
 660 <body>
 661 <!-- Table of Contents generated by Perl - HTML::Toc -->
 662 <ol class=toc_appendix1>
 663    <li><a href=#appendix-A>Appendix</a>
 664    <ol class=toc_appendix2>
 665       <li><a href=#appendix-A.1>Appendix Paragraph</a>
 666    </ol>
 667    <li><a href=#appendix-B>Appendix</a>
 668    <ol class=toc_appendix2>
 669       <li><a href=#appendix-B.1>Appendix Paragraph</a>
 670    </ol>
 671 </ol>
 672 <!-- End of generated Table of Contents -->
 673
 674    <a name=appendix-A><h1>A &nbsp;Appendix</h1></a>
 675    <a name=appendix-A.1><h2>A.1 &nbsp;Appendix Paragraph</h2></a>
 676    <a name=appendix-B><h1>B &nbsp;Appendix</h1></a>
 677    <a name=appendix-B.1><h2>B.1 &nbsp;Appendix Paragraph</h2></a>
 678 </body>
 679 </html>
 680 EOT
 681 }  # TestUsingCSS()
 682
 683
 684         # Test 'extendFromFile()'
 685 TestExtendFromFile();
 686         # Test 'generateFromFile()'
 687 TestGenerateFromFile();
 688         # Test 'generateFromFiles()'
 689 TestGenerateFromFiles();
 690         # Test 'doUseGroupsGlobal = 0'
 691 TestGlobalGroups0();
 692         # Test 'doUseGroupsGlobal = 1'
 693 TestGlobalGroups1();
 694         # Test 'tocInsertor->insertIntoFile'
 695 TestInsertIntoFile();
 696         # Test 'tocUpdator->insertIntoFile'
 697 TestInsertIntoFileUsingTocUpdator();
 698         # Test additional 'appendix' group
 699 TestMultipleGroupsAppendix();
 700         # Test additional 'part' group
 701 TestMultipleGroupsPart();
 702         # Test multiple ToCs
 703 TestMultipleTocs();
 704         # Test specifying numbered list
 705 TestSpecifyNumberedList();
 706         # Test 'updateFile()'
 707 TestUpdateFile();
 708         # Test using CSS
 709 TestUsingCSS();