1 files changed, 388 insertions, 0 deletions

diff --git a/ext/Pod-Simple/t/pulltitl.t b/ext/Pod-Simple/t/pulltitl.t
new file mode 100644
index 0000000000..abaf83f7b7
--- /dev/null
+++ b/ext/Pod-Simple/t/pulltitl.t
@@ -0,0 +1,388 @@
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+use strict;
+use Test;
+BEGIN { plan tests => 104 };
+
+#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' );
+
+}
+
+###########################################################################
+
+{
+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 Когда читала (NAME)\n\nКогда читала ты мучительные строки -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
+
+ok $p->get_title(), q{Когда читала ты мучительные строки -- 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) Когда читала\n\nКогда читала ты мучительные строки -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
+
+ok $p->get_title(), q{Когда читала ты мучительные строки -- 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) Когда читала\n\nКогда читала ты мучительные строки -- 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{Когда читала ты мучительные строки -- 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) Когда читала\n\nКогда читала ты мучительные строки -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
+
+ok $p->get_description(), q{Когда читала ты мучительные строки -- 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) Когда читала\n\nКогда читала ты мучительные строки -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
+
+ok $p->get_description(), q{Когда читала ты мучительные строки -- 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) Когда читала\n\nКогда читала ты мучительные строки -- 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{Когда читала ты мучительные строки -- 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) Вдали перед\n\nThingy\n\n=head1 (DESCRIPTION) Когда читала\n\nКогда читала ты мучительные строки -- 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{Когда читала ты мучительные строки -- 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) Вдали перед
+
+Thingy
+
+=head1 (DESCRIPTION) Когда читала
+
+Когда читала ты мучительные строки -- Fet's I<"When you were> reading
+
+=pod
+
+Grunk
+
+=cut
+} );
+
+ok $p->get_title(), "Thingy";
+ok $p->get_version() || '', '';
+ok $p->get_description(), q{Когда читала ты мучительные строки -- 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) Вдали перед
+
+Thingy
+
+=head1 (DESCRIPTION) Когда читала
+
+Когда читала ты мучительные строки -- 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{Когда читала ты мучительные строки -- 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 "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+__END__
+