Move t/pod/diag.t to t/porting, as it's really a code consistency test.
authorNicholas Clark <nick@ccl4.org>
Thu, 1 Oct 2009 10:08:11 +0000 (11:08 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 1 Oct 2009 10:08:11 +0000 (11:08 +0100)
It was the last test in t/pod, which allows us to remove the directory.

MANIFEST
pod/perlhack.pod
t/TEST
t/harness
t/porting/diag.t [moved from t/pod/diag.t with 100% similarity]

index 2464f95..e7f020b 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4426,9 +4426,9 @@ t/op/wantarray.t          See if wantarray works
 t/op/write.t                   See if write works (formats work)
 t/op/yadayada.t                        See if ..., !!! and ??? work
 t/perl.supp                    Perl valgrind suppressions
-t/pod/diag.t                   Test completeness of perldiag.pod
 t/porting/args_assert.t                Check that all PERL_ARGS_ASSERT* macros are used
 t/porting/checkcase.t  Check whether we are case-insensitive-fs-friendly
+t/porting/diag.t               Test completeness of perldiag.pod
 t/porting/maintainers.t                Test that Porting/Maintaners.pl is up to date
 t/porting/manifest.t           Test that this MANIFEST file is well formed
 t/README                       Instructions for regression tests
index 0164665..54253fc 100644 (file)
@@ -1806,11 +1806,6 @@ Tests for perl's method resolution order implementations
 Tests for perl's built in functions that don't fit into any of the
 other directories.
 
-=item F<t/pod/>
-
-Tests for POD directives.  There are still some tests for the Pod
-modules hanging around in here that need to be moved out into F<lib/>.
-
 =item F<t/re/>
 
 Tests for regex related functions or behaviour. (These used to live
diff --git a/t/TEST b/t/TEST
index 066ee9d..6cfc031 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -406,7 +406,6 @@ unless (@ARGV) {
     # something is that badly wrong.
     push @ARGV, _tests_from_manifest($extensions, $known_extensions);
     unless ($::core) {
-       _find_tests('pod');
        _find_tests('x2p');
        _find_tests('porting');
        _find_tests('japh') if $::torture;
index a70c8be..d5099bf 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -160,7 +160,6 @@ if (@ARGV) {
        use Config;
        push @last,  sort { lc $a cmp lc $b }
            _tests_from_manifest($Config{extensions}, $Config{known_extensions});
-       push @last, <pod/*.t>;
        push @last, <x2p/*.t>;
 
        my %times;
similarity index 100%
rename from t/pod/diag.t
rename to t/porting/diag.t