blob: ffb957dadda1d3c680d09b183efb5af9d256145e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use strict;
use Test;
use File::Spec;
BEGIN { plan tests => 1 }
use Pod::Parser;
use Carp;
$SIG{__DIE__} = \&Carp::confess;
eval {require IO::String;};
skip($@ ? 'no IO::String' : '', sub {
{
my $pod_string = 'some I<silly> text';
my $handle = IO::String->new( \$pod_string );
my $parser = Pod::Parser->new();
$parser->parse_from_file( $0, $handle );
}
# free the reference
{
my $parser = Pod::Parser->new();
$parser->parse_from_file( $0, File::Spec->devnull );
}
1;
});
exit 0;
__END__
=head1 EXAMPLE
This test makes sure the parse_from_file is re-entrant
=cut
|
