This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pod::Html - correctly link to =item's on the same page
[perl5.git] / lib / Pod / t / Select.t
1 #!perl
2 use warnings;
3 use strict;
4
5 BEGIN {
6     chdir 't' if -d 't';
7     @INC = '../lib';
8 };
9
10 use Test::More tests => 9;
11
12 require_ok( 'Pod::Select' );
13
14 my $fake_out = tie *FAKEOUT, 'CatchOut';
15
16 my $p_s = Pod::Select->new;
17 isa_ok( $p_s, 'Pod::Select' );
18
19 my $pod = << 'EO_NAME';
20 =head1 NAME
21
22 Select.t - Tests for Pod::Select.
23
24 EO_NAME
25
26 $p_s->select( 'NAME' );
27 $p_s->parse_from_file( $0, \*FAKEOUT );
28 is( $$fake_out, $pod, 'select( NAME )' );
29
30 $pod .= << 'EO_SYNOPSIS';
31 =head1 SYNOPSIS
32
33 This program just tests the basics of the Pod::Select module.
34
35 EO_SYNOPSIS
36
37 $$fake_out = '';
38 $p_s->select( 'NAME', 'SYNOPSIS' );
39 $p_s->parse_from_file( $0, \*FAKEOUT );
40 is( $$fake_out, $pod, 'select( NAME, SYNOPSIS )' );
41
42 $pod .= << 'EO_AUTHOR';
43 =head1 AUTHOR
44
45 Abe Timmerman <abe@ztreet.demon.nl>
46
47 EO_AUTHOR
48
49 $$fake_out = '';
50 $p_s->add_selection( 'AUTHOR' );
51 $p_s->parse_from_file( $0, \*FAKEOUT );
52 is( $$fake_out, $pod, 'add_selection( AUTHOR )' );
53
54 my $head1 = $p_s->curr_headings(1);
55 is( $head1, 'AUTHOR', 'curr_headings()' );
56
57 $pod = << 'EO_DESCRIPTION';
58 =head2 subsection
59
60 a sub-section can be specified
61
62 EO_DESCRIPTION
63
64 $$fake_out = '';
65 $p_s->select( 'DESCRIPTION/subsection' );
66 $p_s->parse_from_file( $0, \*FAKEOUT );
67 is( $$fake_out, $pod, 'select( DESCRIPTION/subsection )' );
68
69
70 ok( $p_s->match_section( 'DESCRIPTION', 'subsection' ), 
71     'match_section( DESCRIPTION, subsection )' );
72
73 $pod = << 'EO_DESCRIPTION';
74 =head1 DESCRIPTION
75
76 I'll go by the POD in Pod::Select.
77
78 EO_DESCRIPTION
79
80 $$fake_out = '';
81 $p_s->select( 'DESCRIPTION/!.+' );
82 $p_s->parse_from_file( $0, \*FAKEOUT );
83 is( $$fake_out, $pod, 'select( DESCRIPTION/!.+ )' );
84
85
86 package CatchOut;
87 sub TIEHANDLE { bless \( my $self ), shift }
88 sub PRINT     { my $self = shift; $$self .= $_[0] }
89
90 __END__
91
92 =head1 NAME
93
94 Select.t - Tests for Pod::Select.
95
96 =head1 SYNOPSIS
97
98 This program just tests the basics of the Pod::Select module.
99
100 =head1 DESCRIPTION
101
102 I'll go by the POD in Pod::Select.
103
104 =head2 selection + add_selection
105
106 Pull out the specified sections
107
108 =head2 subsection
109
110 a sub-section can be specified
111
112 =head1 AUTHOR
113
114 Abe Timmerman <abe@ztreet.demon.nl>
115
116 =cut