Update 1_compile for new known tests.

[p5sagit/p5-mst-13.2.git] / t / lib / 1_compile.t

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index f6e2ad0..51d4d6a 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -10,6 +10,7 @@ use warnings;
 use Config;
 
 my %Core_Modules;
+my %Test;
 
 unless (open(MANIFEST, "MANIFEST")) {
     die "$0: failed to open 'MANIFEST': $!\n";
@@ -20,10 +21,20 @@ sub add_by_name {
 }
 
 while (<MANIFEST>) {
-    next unless m!^lib/(\S+?)\.pm!;
-    my $module = $1;
-    $module =~ s!/!::!g;
-    add_by_name($module);
+    if (m!^(lib)/(\S+?)\.pm\s!) {
+       # Collecting modules names from under ext/ would be
+       # rather painful since the mapping from filenames
+       # to module names is not 100%.
+       my ($dir, $module) = ($1, $2);
+       $module =~ s!/!::!g;
+       add_by_name($module);
+    } elsif (m!^(lib|ext)/(\S+?)(?:\.t|/test.pl)\s!) {
+       my ($dir, $test) = ($1, $2);
+       $test =~ s!(\w+)/\1$!$1! if $dir eq 'ext';
+       $test =~ s!/t/[^/]+$!!;
+       $test =~ s!/!::!g;
+       $Test{$test}++;
+    }
 }
 
 close(MANIFEST);
@@ -54,13 +65,13 @@ sub delete_by_prefix {
 
 delete_by_name('CGI::Fast');           # won't load without FCGI
 
-delete_by_name('Devel::DProf');                # needs to be run as -d:DProf
-
 delete_by_prefix('ExtUtils::MM_');     # ExtUtils::MakeMaker's domain
 
 delete_by_prefix('File::Spec::');      # File::Spec's domain
 add_by_name('File::Spec::Functions');  # put this back
 
+delete_by_prefix('Attribute::Handlers');# we test this, and we have demos
+
 sub using_feature {
     my $use = "use$_[0]";
     exists $Config{$use} &&
@@ -73,8 +84,24 @@ unless (using_feature('threads') && has_extension('Thread')) {
     delete_by_prefix('Thread::');
 }
 
-delete_by_prefix('unicode::');
-add_by_name('unicode::distinct');      # put this back
+unless (has_extension('NDBM_File')) {
+    delete_by_name('Memoize::NDBM_File');
+}
+
+if (ord('A') == 193) {
+    delete_by_prefix('Net::') unless eval { require Convert::EBCDIC };
+}
+
+# Delete all modules which have their own tests.
+# This makes this test a lot faster.
+foreach my $mod (sort keys %Test) {
+    delete_by_name($mod);
+}
+foreach my $mod (<DATA>) {
+    chomp $mod;
+    print "### $mod has a test but is in DATA of $0\n" if exists $Test{$mod};
+    delete_by_name($mod);
+}
 
 # Okay, this is the list.
 
@@ -85,7 +112,7 @@ print "1..".@Core_Modules."\n";
 my $test_num = 1;
 
 foreach my $module (@Core_Modules) {
-    print "# $module compile failed\nnot " unless compile_module($module);
+    print "$module compile failed\nnot " unless compile_module($module);
     print "ok $test_num\n";
     $test_num++;
 }
@@ -95,5 +122,83 @@ foreach my $module (@Core_Modules) {
 sub compile_module {
     my ($module) = $_[0];
     
-    return scalar `$^X "-Ilib" t/lib/compmod.pl $module` =~ /^ok/;
+    my $out = scalar `$^X "-Ilib" t/lib/compmod.pl $module`;
+    print "# $out";
+    return $out =~ /^ok/;
 }
+
+# Add here modules that have their own test scripts and therefore
+# need not be test-compiled by 1_compile.t.
+__DATA__
+B::ShowLex
+CGI::Apache
+CGI::Carp
+CGI::Cookie
+CGI::Form
+CGI::Pretty
+CGI::Push
+CGI::Switch
+CGI::Util
+Carp::Heavy
+CPAN::Nox
+Exporter::Heavy
+ExtUtils::Constant
+ExtUtils::MakeMaker
+Filter::Util::Call
+GDBM_File
+I18N::LangTags::List
+IO::Dir
+IO::File
+IO::Handle
+IO::Pipe
+IO::Poll
+IO::Seekable
+IO::Select
+IO::Socket
+IO::Socket::INET
+IO::Socket::UNIX
+Locale::Constants
+Locale::Country
+Locale::Currency
+Locale::Language
+MIME::QuotedPrint
+Math::BigFloat
+Math::BigInt::Calc
+Memoize::AnyDBM_File
+Memoize::Expire
+Memoize::ExpireFile
+Memoize::ExpireTest
+Memoize::NDBM_File
+Memoize::SDBM_File
+Memoize::Storable
+NDBM_File
+ODBM_File
+Pod::Checker
+Pod::Find
+Pod::Html
+Pod::LaTeX
+Pod::Man
+Pod::ParseLink
+Pod::ParseUtils
+Pod::Text
+Pod::Text::Overstrike
+Pod::Text::Termcap
+Pod::Usage
+SDBM_File
+Safe
+Scalar::Util
+Sys::Syslog
+Test::More
+Test::ParseWords
+Text::Tabs
+Text::Wrap
+Thread
+Tie::Array
+Tie::Handle
+Tie::Hash
+Time::tm
+UNIVERSAL
+attributes
+base
+ops
+warnings::register