options.t - Android社区 - https://www.androidos.net.cn/

#--- 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();