#!./perl
+# Modules should have their own tests. For historical reasons, some
+# do not. This does basic compile tests on modules that have no tests
+# of their own.
+
BEGIN {
- chdir '..' if -d '../pod' && -d '../t';
- @INC = 'lib';
+ chdir 't';
+ @INC = '../lib';
}
use strict;
use warnings;
-use Config;
-
-my %Core_Modules;
-
-unless (open(MANIFEST, "MANIFEST")) {
- die "$0: failed to open 'MANIFEST': $!\n";
-}
-
-sub add_by_name {
- $Core_Modules{$_[0]}++;
-}
-
-while (<MANIFEST>) {
- next unless m!^lib/(\S+?)\.pm!;
- my $module = $1;
- $module =~ s!/!::!g;
- add_by_name($module);
-}
-
-close(MANIFEST);
+use File::Spec::Functions;
-# Delete stuff that can't be tested here.
-
-sub delete_by_name {
- delete $Core_Modules{$_[0]};
-}
-
-sub has_extension {
- $Config{extensions} =~ /\b$_[0]\b/i;
-}
-
-sub delete_unless_has_extension {
- delete $Core_Modules{$_[0]} unless has_extension($_[0]);
-}
-
-foreach my $known_extension (split(' ', $Config{known_extensions})) {
- delete_unless_has_extension($known_extension);
-}
-
-sub delete_by_prefix {
- for my $match (grep { /^$_[0]/ } keys %Core_Modules) {
- delete_by_name($match);
- }
-}
-
-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
+# Okay, this is the list.
-sub using_feature {
- my $use = "use$_[0]";
- exists $Config{$use} &&
- defined $Config{$use} &&
- $Config{$use} eq 'define';
-}
+my @Core_Modules = grep /\S/, <DATA>;
+chomp @Core_Modules;
-unless (using_feature('threads') && has_extension('Thread')) {
- delete_by_name('Thread');
- delete_by_prefix('Thread::');
+if (eval { require Socket }) {
+ # Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
+ if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
+ push @Core_Modules, qw(Net::Cmd Net::POP3);
+ }
}
-unless (has_extension('NDBM_File')) {
- delete_by_name('Memoize::NDBM_File');
-}
+@Core_Modules = sort @Core_Modules;
-delete_by_prefix('unicode::');
+print "1..".(1+@Core_Modules)."\n";
-# Delete all modules which have their own tests.
-# This makes this test a lot faster.
-foreach my $mod (<DATA>) {
- chomp $mod;
- delete_by_name($mod);
+my $message
+ = "ok 1 - All modules should have tests # TODO Make Schwern Poorer\n";
+if (@Core_Modules) {
+ print "not $message";
+} else {
+ print $message;
}
+print <<'EOREWARD';
+# http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-04/msg01223.html
+# 20010421230349.P2946@blackrider.blackstar.co.uk
+EOREWARD
-# Okay, this is the list.
-
-my @Core_Modules = sort keys %Core_Modules;
-
-print "1..".@Core_Modules."\n";
-
-my $test_num = 1;
+my $test_num = 2;
foreach my $module (@Core_Modules) {
+ my $todo = '';
+ $todo = "# TODO $module needs porting on $^O" if $module eq 'ByteLoader' && $^O eq 'VMS';
print "# $module compile failed\nnot " unless compile_module($module);
- print "ok $test_num\n";
+ print "ok $test_num $todo\n";
$test_num++;
}
# out of our namespace.
sub compile_module {
my ($module) = $_[0];
-
- my $out = scalar `$^X "-Ilib" t/lib/compmod.pl $module`;
+
+ my $compmod = catfile(curdir(), 'lib', 'compmod.pl');
+ my $lib = '-I' . catdir(updir(), 'lib');
+
+ my $out = scalar `$^X $lib $compmod $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.
+# These modules have no tests of their own.
+# Keep up to date with
+# http://perl-qa.hexten.net/wiki/index.php/Untested_Core_Modules
+# and vice-versa. The list should only shrink.
__DATA__
-AnyDBM_File
-Attribute::Handlers
-AutoLoader
-B
-B::Debug
-B::Deparse
-B::ShowLex
-B::Stash
-Benchmark
-CGI
-CGI::Pretty
-CGI::Util
-Carp
-Carp::Heavy
-Class::ISA
-Class::Struct
-CPAN
-Cwd
-DB_File
-Data::Dumper
-Devel::DProf
-Devel::Peek
-Devel::SelfStubber
-Digest
-Digest::MD5
-DirHandle
-Dumpvalue
-Encode
-English
-Env
-Errno
-Exporter
-Exporter::Heavy
-ExtUtils::Constant
-ExtUtils::MakeMaker
-Fatal
-Fcntl
-File::Basename
-File::CheckTree
-File::Compare
-File::Copy
-File::DosGlob
-File::Find
-File::Glob
-File::Path
-File::Spec
-File::Spec::Functions
-File::Temp
-File::stat
-FileCache
-FileHandle
-Filter::Simple
-Filter::Util::Call
-FindBin
-GDBM_File
-Getopt::Long
-Getopt::Std
-I18N::Langinfo
-I18N::LangTags
-I18N::LangTags::List
-I18N::Collate
-IO::Dir
-IO::File
-IO::Handle
-IO::Pipe
-IO::Poll
-IO::Seekable
-IO::Select
-IO::Socket
-IO::Socket::INET
-IO::Socket::UNIX
-IPC::Open2
-IPC::Open3
-IPC::SysV
-List::Util
-Locale::Constants
-Locale::Country
-Locale::Currency
-Locale::Language
-Locale::Maketext
-MIME::Base64
-MIME::QuotedPrint
-Math::BigFloat
-Math::BigInt
-Math::BigInt::Calc
-Math::Complex
-Math::Trig
-Memoize
-Memoize::AnyDBM_File
-Memoize::Expire
-Memoize::ExpireFile
-Memoize::ExpireTest
-Memoize::NDBM_File
-Memoize::SDBM_File
-Memoize::Storable
-NDBM_File
-NEXT
-Net::hostent
-Net::netent
-Net::protoent
-Net::servent
-ODBM_File
-Opcode
-PerlIO
-POSIX
-Pod::Checker
-Pod::Find
-Pod::Text
-Pod::Usage
-SDBM_File
-Safe
-Scalar::Util
-Search::Dict
-SelectSaver
-SelfLoader
-Socket
-Storable
-Switch
-Symbol
-Sys::Hostname
-Sys::Syslog
-Term::ANSIColor
-Test
-Test::Harness
-Test::More
-Test::Simple
-Test::ParseWords
-Text::Abbrev
-Text::Balanced
-Text::ParseWords
-Text::Soundex
-Text::Tabs
-Text::Wrap
-Thread
-Tie::Array
-Tie::Handle
-Tie::Hash
-Tie::RefHash
-Tie::Scalar
-Tie::SubstrHash
-Time::HiRes
-Time::Local
-Time::Piece
-Time::gmtime
-Time::localtime
-Time::tm
-UnicodeCD
-UNIVERSAL
-User::grent
-User::pwent
-XS::Typemap
-attributes
-attrs
-autouse
-base
-bytes
-charnames
-constant
-diagnostics
-fields
-integer
-locale
-ops
-overload
-strict
-subs
-utf8
-warnings
-warnings::register
https://perl5.git.perl.org / perl5.git / blobdiff