[perl5.git] / t / pod / nested_items.t

BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   require "testp2pt.pl";
   import TestPodIncPlainText;
}

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodplaintext \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};


__END__


=head1 Test nested item lists

This is a test to ensure the nested =item paragraphs
get indented appropriately.

=over 2

=item 1

First section.

=over 2

=item a

this is item a

=item b

this is item b

=back

=item 2

Second section.

=over 2

=item a

this is item a

=item b

this is item b

=item c

=item d

This is item c & d.

=back

=back

=cut
Commit	Line	Data
360aca43	1	BEGIN {
9c6ed6d7 HS	2	use File::Basename;
	3	my $THISDIR = dirname $0;
	4	unshift @INC, $THISDIR;
360aca43 GS	5	require "testp2pt.pl";
	6	import TestPodIncPlainText;
	7	}
	8
	9	my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
	10	my $passed = testpodplaintext \%options, $0;
	11	exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
	12
	13
	14	__END__
	15
	16
	17	=head1 Test nested item lists
	18
	19	This is a test to ensure the nested =item paragraphs
	20	get indented appropriately.
	21
	22	=over 2
	23
	24	=item 1
	25
	26	First section.
	27
	28	=over 2
	29
	30	=item a
	31
	32	this is item a
	33
	34	=item b
	35
	36	this is item b
	37
	38	=back
	39
	40	=item 2
	41
	42	Second section.
	43
	44	=over 2
	45
	46	=item a
	47
	48	this is item a
	49
	50	=item b
	51
	52	this is item b
	53
	54	=item c
	55
	56	=item d
	57
	58	This is item c & d.
	59
	60	=back
	61
	62	=back
	63
	64	=cut