428 lines
11 KiB
Perl
428 lines
11 KiB
Perl
BEGIN {
|
||
if($ENV{PERL_CORE}) {
|
||
chdir 't';
|
||
@INC = '../lib';
|
||
}
|
||
}
|
||
|
||
use strict;
|
||
use Test;
|
||
BEGIN { plan tests => 117 };
|
||
|
||
#use Pod::Simple::Debug (5);
|
||
|
||
#sub Pod::Simple::MANY_LINES () {1}
|
||
#sub Pod::Simple::PullParser::DEBUG () {3}
|
||
|
||
|
||
use Pod::Simple::PullParser;
|
||
|
||
ok 1;
|
||
|
||
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), 'Bzorch';
|
||
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
|
||
|
||
DIE: {
|
||
# Make sure we die.
|
||
local $@;
|
||
eval { $p->set_source(\'=head1 foo') };
|
||
ok $@;
|
||
ok $@ =~ /\QCannot assign new source to pull parser; create a new instance, instead/;
|
||
}
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing a set with nocase, at line ", __LINE__, "\n";
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 Name\n\nShazbot\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(nocase => 1), 'Shazbot';
|
||
|
||
ok( my $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
ok( $t && $t->type eq 'text' && $t->text, 'Name' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NE<65>ME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), 'Bzorch';
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
|
||
}
|
||
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
{
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
ok $p->get_title(), 'Bzorch - thing lala';
|
||
}
|
||
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
ok $p->get_title(), 'Bzorch - thing lala';
|
||
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 Bzorch lala\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), 'Bzorch lala';
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
ok( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 Bzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), 'Bzorch - thing lala';
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'text');
|
||
ok( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' );
|
||
|
||
}
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 Nombre (NAME)\n\nBzorch - I<thing> lala\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_version || '', '';
|
||
ok $p->get_author || '', '';
|
||
|
||
ok $p->get_title(), 'Bzorch - thing lala';
|
||
|
||
my $t;
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (NAME)\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 (NAME) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_title() || '', '';
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
ok $p->get_title() || '', '';
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
ok $p->get_title(), "Thingy";
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), "Thingy";
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 (NAME) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>\n\nThingy\n\n=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\n<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
|
||
|
||
ok $p->get_title(), "Thingy";
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \q{
|
||
|
||
=head1 (NAME) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
Thingy
|
||
|
||
=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading
|
||
|
||
=pod
|
||
|
||
Grunk
|
||
|
||
=cut
|
||
} );
|
||
|
||
ok $p->get_title(), "Thingy";
|
||
ok $p->get_version() || '', '';
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
my $t;
|
||
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
{
|
||
print "# Testing another set, at line ", __LINE__, "\n";
|
||
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \q{
|
||
|
||
=head1 (NAME) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
Thingy
|
||
|
||
=head1 (DESCRIPTION) <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's I<"When you were> reading
|
||
|
||
=head1 VERSION
|
||
|
||
Stuff: Thing
|
||
Whatever: Um.
|
||
|
||
=head1 AUTHOR
|
||
|
||
Jojoj E<65>arzarz
|
||
|
||
=pod
|
||
|
||
Grunk
|
||
|
||
=cut
|
||
} );
|
||
|
||
ok $p->get_title(), "Thingy";
|
||
my $v = $p->get_version || '';
|
||
$v =~ s/^ +//m;
|
||
$v =~ s/^\s+//s;
|
||
$v =~ s/\s+$//s;
|
||
ok $v, "Stuff: Thing\nWhatever: Um.";
|
||
ok $p->get_description(), q{<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -- Fet's "When you were reading};
|
||
ok $p->get_author() || '', 'Jojoj Aarzarz';
|
||
|
||
|
||
my $t;
|
||
ok( $t = $p->get_token);
|
||
ok( $t && $t->type, 'start');
|
||
ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
|
||
|
||
}
|
||
|
||
###########################################################################
|
||
{
|
||
print "# Testing a title with an X<>, at line ", __LINE__, "\n";
|
||
my $p = Pod::Simple::PullParser->new;
|
||
$p->set_source( \qq{\n=head1 NAME Foo Bar\nX<Some entry>\n} );
|
||
|
||
ok $p->get_title(), 'NAME Foo Bar';
|
||
}
|
||
|
||
###########################################################################
|
||
|
||
|
||
print "# Wrapping up... one for the road...\n";
|
||
ok 1;
|
||
print "# --- Done with ", __FILE__, " --- \n";
|
||
|
||
__END__
|
||
|