This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Revert "Update Pod::Simple from 3.43 to 3.45"
[perl5.git] / cpan / Pod-Simple / t / pulltitl.t
diff --git a/cpan/Pod-Simple/t/pulltitl.t b/cpan/Pod-Simple/t/pulltitl.t
index 46ba2ce..51b3503 100644 (file)
--- a/cpan/Pod-Simple/t/pulltitl.t
+++ b/cpan/Pod-Simple/t/pulltitl.t
@@ -1,6 +1,14 @@
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
 use strict;
 use warnings;
-use Test::More tests => 115;
+use Test;
+BEGIN { plan tests => 117 };
 
 #use Pod::Simple::Debug (5);
 
@@ -10,6 +18,8 @@ use Test::More tests => 115;
 
 use Pod::Simple::PullParser;
 
+ok 1;
+
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ###########################################################################
 
@@ -24,23 +34,23 @@ ok $p->get_title(), 'Bzorch';
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
-is( $t && $t->type eq 'text' && $t->text, 'NAME' );
+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 $@;
-    like $@, qr/\QCannot assign new source to pull parser; create a new instance, instead/;
+    ok $@ =~ /\QCannot assign new source to pull parser; create a new instance, instead/;
 }
 }
 
@@ -54,16 +64,16 @@ $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);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
-is( $t && $t->type eq 'text' && $t->text, 'Name' );
+ok( $t && $t->type, 'text');
+ok( $t && $t->type eq 'text' && $t->text, 'Name' );
 
 }
 
@@ -79,15 +89,15 @@ ok $p->get_title(), 'Bzorch';
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
+ok( $t && $t->type, 'text');
 
 }
 
@@ -100,27 +110,27 @@ 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} );
-is $p->get_title(), 'Bzorch - thing lala';
+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} );
-is $p->get_title(), 'Bzorch - thing lala';
+ok $p->get_title(), 'Bzorch - thing lala';
 
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
-is( $t && $t->type eq 'text' && $t->text, 'NAME' );
+ok( $t && $t->type, 'text');
+ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
 
 }
 
@@ -132,20 +142,20 @@ 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} );
 
-is $p->get_title(), 'Bzorch lala';
+ok $p->get_title(), 'Bzorch lala';
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
-is( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' );
+ok( $t && $t->type, 'text');
+ok( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' );
 
 }
 
@@ -157,20 +167,20 @@ 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} );
 
-is $p->get_title(), 'Bzorch - thing lala';
+ok $p->get_title(), 'Bzorch - thing lala';
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'head1' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'text');
-is( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' );
+ok( $t && $t->type, 'text');
+ok( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' );
 
 }
 ###########################################################################
@@ -181,8 +191,8 @@ 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} );
 
-is $p->get_version || '', '';
-is $p->get_author  || '', '';
+ok $p->get_version || '', '';
+ok $p->get_author  || '', '';
 
 ok $p->get_title(), 'Bzorch - thing lala';
 
@@ -204,8 +214,8 @@ ok $p->get_title(), q{
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -217,12 +227,12 @@ 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} );
 
-is $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -234,13 +244,13 @@ 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} );
 
-is $p->get_title() || '', '';
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title() || '', '';
+ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 ###########################################################################
@@ -251,13 +261,13 @@ 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} );
 
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
-is $p->get_title() || '', '';
+ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title() || '', '';
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -269,13 +279,13 @@ 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} );
 
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
-is $p->get_title(), "Thingy";
+ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title(), "Thingy";
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -287,13 +297,13 @@ 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} );
 
-is $p->get_title(), "Thingy";
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title(), "Thingy";
+ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -305,13 +315,13 @@ 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} );
 
-is $p->get_title(), "Thingy";
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+ok $p->get_title(), "Thingy";
+ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
 my $t;
 
 ok( $t = $p->get_token);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -338,14 +348,14 @@ Grunk
 =cut
 } );
 
-is $p->get_title(), "Thingy";
-is $p->get_version() || '', '';
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
+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);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -381,20 +391,20 @@ Grunk
 =cut
 } );
 
-is $p->get_title(), "Thingy";
+ok $p->get_title(), "Thingy";
 my $v = $p->get_version || '';
 $v =~ s/^ +//m;
 $v =~ s/^\s+//s;
 $v =~ s/\s+$//s;
-is $v, "Stuff: Thing\nWhatever: Um.";
-is $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
-is $p->get_author() || '', 'Jojoj Aarzarz';
+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);
-is( $t && $t->type, 'start');
-is( $t && $t->type eq 'start' && $t->tagname, 'Document' );
+ok( $t && $t->type, 'start');
+ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
 
 }
 
@@ -404,5 +414,15 @@ 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} );
 
-is $p->get_title(), 'NAME Foo Bar';
+ok $p->get_title(), 'NAME Foo Bar';
 }
+
+###########################################################################
+
+
+print "# Wrapping up... one for the road...\n";
+ok 1;
+print "# --- Done with ", __FILE__, " --- \n";
+
+__END__
+
Unnamed repository; edit this file 'description' to name the repository.