From: Steve Hay <SteveHay@planit.com>
Date: Sat, 10 Oct 2009 11:43:02 +0000 (+0100)
Subject: Sync Pod-Simple test scripts with CPAN versions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c7c0c6c6ad48b65d44d21b9ea192039ce57942c;p=p5sagit%2Fp5-mst-13.2.git

Sync Pod-Simple test scripts with CPAN versions

Retained local changes in:
corpus.t, reinit.t, search20.t, search22.t, search50.t
because they look more significant
---

diff --git a/cpan/Pod-Simple/t/accept05.t b/cpan/Pod-Simple/t/accept05.t
index d346de5..f259ff2 100644
--- a/cpan/Pod-Simple/t/accept05.t
+++ b/cpan/Pod-Simple/t/accept05.t
@@ -1,3 +1,4 @@
+# Testing extend and accept_codes
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/corpus.t b/cpan/Pod-Simple/t/corpus.t
index 291edd6..da54f99 100644
--- a/cpan/Pod-Simple/t/corpus.t
+++ b/cpan/Pod-Simple/t/corpus.t
@@ -1,3 +1,4 @@
+# Testing a corpus of Pod files
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/encod01.t b/cpan/Pod-Simple/t/encod01.t
index 4fe9b9f..0f83dcc 100644
--- a/cpan/Pod-Simple/t/encod01.t
+++ b/cpan/Pod-Simple/t/encod01.t
@@ -1,3 +1,4 @@
+# encoding nonesuch
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/encod02.t b/cpan/Pod-Simple/t/encod02.t
index de75ef0..a29cbdc 100644
--- a/cpan/Pod-Simple/t/encod02.t
+++ b/cpan/Pod-Simple/t/encod02.t
@@ -1,3 +1,4 @@
+# encoding not error
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/encod03.t b/cpan/Pod-Simple/t/encod03.t
index a058ce7..48ab2f4 100644
--- a/cpan/Pod-Simple/t/encod03.t
+++ b/cpan/Pod-Simple/t/encod03.t
@@ -1,3 +1,4 @@
+# encoding not error 0
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/end_over.t b/cpan/Pod-Simple/t/end_over.t
index ca61b03..ccea3fe 100644
--- a/cpan/Pod-Simple/t/end_over.t
+++ b/cpan/Pod-Simple/t/end_over.t
@@ -1,3 +1,4 @@
+# head ends over
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/fcodes_e.t b/cpan/Pod-Simple/t/fcodes_e.t
index 80b71b3..a0026dc 100644
--- a/cpan/Pod-Simple/t/fcodes_e.t
+++ b/cpan/Pod-Simple/t/fcodes_e.t
@@ -1,3 +1,4 @@
+# fcodes E
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/fcodes_l.t b/cpan/Pod-Simple/t/fcodes_l.t
index 7865a08..17be5db 100644
--- a/cpan/Pod-Simple/t/fcodes_l.t
+++ b/cpan/Pod-Simple/t/fcodes_l.t
@@ -1,3 +1,4 @@
+# fcodes L
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/fcodes_s.t b/cpan/Pod-Simple/t/fcodes_s.t
index 1486687..6579021 100644
--- a/cpan/Pod-Simple/t/fcodes_s.t
+++ b/cpan/Pod-Simple/t/fcodes_s.t
@@ -1,3 +1,4 @@
+# fcodes S
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/fullstop.t b/cpan/Pod-Simple/t/fullstop.t
index 0f02174..f2e9110 100644
--- a/cpan/Pod-Simple/t/fullstop.t
+++ b/cpan/Pod-Simple/t/fullstop.t
@@ -1,3 +1,4 @@
+# Testing hardening fullstop spaces
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/html01.t b/cpan/Pod-Simple/t/html01.t
index 9d1afe5..2c0b04e 100644
--- a/cpan/Pod-Simple/t/html01.t
+++ b/cpan/Pod-Simple/t/html01.t
@@ -1,4 +1,4 @@
-# t/html-para.t
+# Testing HTML paragraphs
 
 BEGIN {
     if($ENV{PERL_CORE}) {
diff --git a/cpan/Pod-Simple/t/html02.t b/cpan/Pod-Simple/t/html02.t
index f00507c..02349f3 100644
--- a/cpan/Pod-Simple/t/html02.t
+++ b/cpan/Pod-Simple/t/html02.t
@@ -1,4 +1,4 @@
-# t/html-styles.t
+# Testing HTML text styles
 
 BEGIN {
     if($ENV{PERL_CORE}) {
diff --git a/cpan/Pod-Simple/t/html03.t b/cpan/Pod-Simple/t/html03.t
index 43b3718..5a59ba2 100644
--- a/cpan/Pod-Simple/t/html03.t
+++ b/cpan/Pod-Simple/t/html03.t
@@ -1,4 +1,4 @@
-# t/html-para.t
+# Testing HTML titles
 
 BEGIN {
     if($ENV{PERL_CORE}) {
diff --git a/cpan/Pod-Simple/t/items02.t b/cpan/Pod-Simple/t/items02.t
index 125241f..4898fe4 100644
--- a/cpan/Pod-Simple/t/items02.t
+++ b/cpan/Pod-Simple/t/items02.t
@@ -1,4 +1,4 @@
-#!perl
+# Testing the =item directive
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/linkclas.t b/cpan/Pod-Simple/t/linkclas.t
index 5df3799..50fbfcc 100644
--- a/cpan/Pod-Simple/t/linkclas.t
+++ b/cpan/Pod-Simple/t/linkclas.t
@@ -1,3 +1,4 @@
+# Testing the LinkSection class
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/testlib2/squaa/Wowo.pod b/cpan/Pod-Simple/t/testlib2/squaa/Wowo.pod
index e2c9d5d..98e7624 100644
--- a/cpan/Pod-Simple/t/testlib2/squaa/Wowo.pod
+++ b/cpan/Pod-Simple/t/testlib2/squaa/Wowo.pod
@@ -1,7 +1,7 @@
 
 =head1 NAME
 
-squaa::Wowo -- blorpoesu
+squaa::Glunk -- blorpoesu
 
 =head1 DESCRIPTION
 
diff --git a/cpan/Pod-Simple/t/tiedfh.t b/cpan/Pod-Simple/t/tiedfh.t
index 74da0c6..1b10d1f 100644
--- a/cpan/Pod-Simple/t/tiedfh.t
+++ b/cpan/Pod-Simple/t/tiedfh.t
@@ -1,3 +1,4 @@
+# Testing tied output filehandle
 BEGIN {
     if($ENV{PERL_CORE}) {
         chdir 't';
diff --git a/cpan/Pod-Simple/t/verb_fmt.t b/cpan/Pod-Simple/t/verb_fmt.t
index a3f422f..07dfad5 100644
--- a/cpan/Pod-Simple/t/verb_fmt.t
+++ b/cpan/Pod-Simple/t/verb_fmt.t
@@ -1,4 +1,4 @@
-
+# Testing verbatim formatted sections
 use strict;
 use Test;
 BEGIN { plan tests => 62 };
diff --git a/cpan/Pod-Simple/t/verbatim.t b/cpan/Pod-Simple/t/verbatim.t
index 35d419e..299356b 100644
--- a/cpan/Pod-Simple/t/verbatim.t
+++ b/cpan/Pod-Simple/t/verbatim.t
@@ -1,4 +1,4 @@
-
+# Testing verbatim sections
 use strict;
 use Test;
 BEGIN { plan tests => 31 };