[p5sagit/p5-mst-13.2.git] / t / pod / twice.t

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