NAME
Select.t - Tests for Pod::Select.
EO_NAME
$p_s->select( 'NAME' ); $p_s->parse_from_file( $0, \*FAKEOUT ); is( $$fake_out, $pod, 'select( NAME )' );
$pod .= << 'EO_SYNOPSIS'; =head1 SYNOPSIS
This program just tests the basics of the Pod::Select module.
EO_SYNOPSIS
$$fake_out = ''; $p_s->select( 'NAME', 'SYNOPSIS' ); $p_s->parse_from_file( $0, \*FAKEOUT ); is( $$fake_out, $pod, 'select( NAME, SYNOPSIS )' );
$pod .= << 'EO_AUTHOR'; =head1 AUTHOR
Abe Timmerman <abe@ztreet.demon.nl>
EO_AUTHOR
$$fake_out = ''; $p_s->add_selection( 'AUTHOR' ); $p_s->parse_from_file( $0, \*FAKEOUT ); is( $$fake_out, $pod, 'add_selection( AUTHOR )' );
my $head1 = $p_s->curr_headings(1); is( $head1, 'AUTHOR', 'curr_headings()' );
$pod = << 'EO_DESCRIPTION'; =head2 subsection
a sub-section can be specified
EO_DESCRIPTION
$$fake_out = ''; $p_s->select( 'DESCRIPTION/subsection' ); $p_s->parse_from_file( $0, \*FAKEOUT ); is( $$fake_out, $pod, 'select( DESCRIPTION/subsection )' );
ok( $p_s->match_section( 'DESCRIPTION', 'subsection' ), 'match_section( DESCRIPTION, subsection )' );
$pod = << 'EO_DESCRIPTION'; =head1 DESCRIPTION
I'll go by the POD in Pod::Select.
EO_DESCRIPTION
$$fake_out = ''; $p_s->select( 'DESCRIPTION/!.+' ); $p_s->parse_from_file( $0, \*FAKEOUT ); is( $$fake_out, $pod, 'select( DESCRIPTION/!.+ )' );
package CatchOut; sub TIEHANDLE { bless \( my $self ), shift } sub PRINT { my $self = shift; $$self .= $_[0] }
__END__
NAME
Select.t - Tests for Pod::Select.
SYNOPSIS
This program just tests the basics of the Pod::Select module.
DESCRIPTION
I'll go by the POD in Pod::Select.
selection + add_selection
Pull out the specified sections
subsection
a sub-section can be specified
AUTHOR
Abe Timmerman <abe@ztreet.demon.nl>