[perl5.git] / lib / Pod / t / text-options.t

#!/usr/bin/perl -w
# $Id: text-options.t,v 1.6 2006-01-28 22:31:50 eagle Exp $
#
# text-options.t -- Additional tests for Pod::Text options.
#
# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
#
# This program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.

BEGIN {
    chdir 't' if -d 't';
    if ($ENV{PERL_CORE}) {
        @INC = '../lib';
    } else {
        unshift (@INC, '../blib/lib');
    }
    unshift (@INC, '../blib/lib');
    $| = 1;
    print "1..5\n";
}

END {
    print "not ok 1\n" unless $loaded;
}

use Pod::Text;

$loaded = 1;
print "ok 1\n";

my $n = 2;
while (<DATA>) {
    my %options;
    next until $_ eq "###\n";
    while (<DATA>) {
        last if $_ eq "###\n";
        my ($option, $value) = split;
        $options{$option} = $value;
    }
    open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
    while (<DATA>) {
        last if $_ eq "###\n";
        print TMP $_;
    }
    close TMP;
    my $parser = Pod::Text->new (%options) or die "Cannot create parser\n";
    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
    $parser->parse_from_file ('tmp.pod', \*OUT);
    close OUT;
    open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
    my $output;
    {
        local $/;
        $output = <TMP>;
    }
    close TMP;
    unlink ('tmp.pod', 'out.tmp');
    my $expected = '';
    while (<DATA>) {
        last if $_ eq "###\n";
        $expected .= $_;
    }
    if ($output eq $expected) {
        print "ok $n\n";
    } else {
        print "not ok $n\n";
        print "Expected\n========\n$expected\nOutput\n======\n$output\n";
    }
    $n++;
}

# Below the marker are bits of POD and corresponding expected text output.
# This is used to test specific features or problems with Pod::Text.  The
# input and output are separated by lines containing only ###.

__DATA__

###
alt 1
###
=head1 SAMPLE

=over 4

=item F

Paragraph.

=item Bar

=item B

Paragraph.

=item Longer

Paragraph.

=back

###

==== SAMPLE ====

:   F   Paragraph.

:   Bar
:   B   Paragraph.

:   Longer
        Paragraph.

###

###
margin 4
###
=head1 SAMPLE

This is some body text that is long enough to be a paragraph that wraps,
thereby testing margins with wrapped paragraphs.

 This is some verbatim text.

=over 6

=item Test

This is a test of an indented paragraph.

This is another indented paragraph.

=back
###
    SAMPLE
        This is some body text that is long enough to be a paragraph that
        wraps, thereby testing margins with wrapped paragraphs.

         This is some verbatim text.

        Test  This is a test of an indented paragraph.

              This is another indented paragraph.

###

###
code 1
###
This is some random text.
This is more random text.

This is some random text.
This is more random text.

=head1 SAMPLE

This is POD.

=cut

This is more random text.
###
This is some random text.
This is more random text.

This is some random text.
This is more random text.

SAMPLE
    This is POD.


This is more random text.
###

###
sentence 1
###
=head1 EXAMPLE

Whitespace around C<<  this.  >> must be ignored per perlpodspec.  >>
needs to eat all of the space in front of it.

=cut
###
EXAMPLE
    Whitespace around "this." must be ignored per perlpodspec.  >> needs to
    eat all of the space in front of it.

###
Commit	Line	Data
11f72409	1	#!/usr/bin/perl -w
e2a52b10	2	# $Id: text-options.t,v 1.6 2006-01-28 22:31:50 eagle Exp $
11f72409 RA	3	#
	4	# text-options.t -- Additional tests for Pod::Text options.
	5	#
e2a52b10	6	# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
11f72409 RA	7	#
	8	# This program is free software; you may redistribute it and/or modify it
	9	# under the same terms as Perl itself.
	10
	11	BEGIN {
	12	chdir 't' if -d 't';
	13	if ($ENV{PERL_CORE}) {
	14	@INC = '../lib';
	15	} else {
	16	unshift (@INC, '../blib/lib');
	17	}
	18	unshift (@INC, '../blib/lib');
	19	$\| = 1;
b7ae008f	20	print "1..5\n";
11f72409 RA	21	}
	22
	23	END {
	24	print "not ok 1\n" unless $loaded;
	25	}
	26
	27	use Pod::Text;
	28
	29	$loaded = 1;
	30	print "ok 1\n";
	31
	32	my $n = 2;
	33	while (<DATA>) {
	34	my %options;
	35	next until $_ eq "###\n";
	36	while (<DATA>) {
	37	last if $_ eq "###\n";
	38	my ($option, $value) = split;
	39	$options{$option} = $value;
	40	}
	41	open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
	42	while (<DATA>) {
	43	last if $_ eq "###\n";
	44	print TMP $_;
	45	}
	46	close TMP;
	47	my $parser = Pod::Text->new (%options) or die "Cannot create parser\n";
e2a52b10 SP	48	open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
	49	$parser->parse_from_file ('tmp.pod', \*OUT);
	50	close OUT;
11f72409 RA	51	open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
	52	my $output;
	53	{
	54	local $/;
	55	$output = <TMP>;
	56	}
	57	close TMP;
	58	unlink ('tmp.pod', 'out.tmp');
	59	my $expected = '';
	60	while (<DATA>) {
	61	last if $_ eq "###\n";
	62	$expected .= $_;
	63	}
	64	if ($output eq $expected) {
	65	print "ok $n\n";
	66	} else {
	67	print "not ok $n\n";
	68	print "Expected\n========\n$expected\nOutput\n======\n$output\n";
	69	}
	70	$n++;
	71	}
	72
	73	# Below the marker are bits of POD and corresponding expected text output.
	74	# This is used to test specific features or problems with Pod::Text. The
	75	# input and output are separated by lines containing only ###.
	76
	77	__DATA__
	78
	79	###
	80	alt 1
	81	###
	82	=head1 SAMPLE
	83
	84	=over 4
	85
	86	=item F
	87
	88	Paragraph.
	89
	90	=item Bar
	91
	92	=item B
	93
	94	Paragraph.
	95
	96	=item Longer
	97
	98	Paragraph.
	99
	100	=back
	101
	102	###
	103
	104	==== SAMPLE ====
	105
	106	: F Paragraph.
	107
	108	: Bar
	109	: B Paragraph.
	110
	111	: Longer
	112	Paragraph.
	113
	114	###
115
116	###
117	margin 4
118	###
119	=head1 SAMPLE
120
121	This is some body text that is long enough to be a paragraph that wraps,
122	thereby testing margins with wrapped paragraphs.
123
124	This is some verbatim text.
125
126	=over 6
127
128	=item Test
129
130	This is a test of an indented paragraph.
131
132	This is another indented paragraph.
133
134	=back
135	###
136	SAMPLE
137	This is some body text that is long enough to be a paragraph that
138	wraps, thereby testing margins with wrapped paragraphs.
139
140	This is some verbatim text.
141
142	Test This is a test of an indented paragraph.
143
144	This is another indented paragraph.
145
146	###
b7ae008f SP	147
	148	###
	149	code 1
	150	###
	151	This is some random text.
	152	This is more random text.
	153
	154	This is some random text.
	155	This is more random text.
	156
	157	=head1 SAMPLE
	158
	159	This is POD.
	160
	161	=cut
	162
	163	This is more random text.
	164	###
	165	This is some random text.
	166	This is more random text.
	167
	168	This is some random text.
	169	This is more random text.
	170
	171	SAMPLE
	172	This is POD.
	173
	174
	175	This is more random text.
	176	###
	177
	178	###
	179	sentence 1
	180	###
	181	=head1 EXAMPLE
	182
	183	Whitespace around C<< this. >> must be ignored per perlpodspec. >>
	184	needs to eat all of the space in front of it.
	185
	186	=cut
	187	###
	188	EXAMPLE
	189	Whitespace around "this." must be ignored per perlpodspec. >> needs to
	190	eat all of the space in front of it.
	191
	192	###