use strict;
use warnings;
+use File::Spec::Functions;
# Okay, this is the list.
-my @Core_Modules = grep /\S/, sort <DATA>;
+my @Core_Modules = grep /\S/, <DATA>;
chomp @Core_Modules;
+if (eval { require Socket }) {
+ push @Core_Modules, qw(Net::Domain);
+ # 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);
+ }
+}
+
+@Core_Modules = sort @Core_Modules;
+
print "1..".(1+@Core_Modules)."\n";
my $message
my $test_num = 2;
foreach my $module (@Core_Modules) {
- print "$module compile failed\nnot " unless compile_module($module);
- print "ok $test_num\n";
+ 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 $todo\n";
$test_num++;
}
sub compile_module {
my ($module) = $_[0];
- my $out = scalar `$^X "-I../lib" 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/;
}
# http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
# and vice-versa. The list should only shrink.
__DATA__
+B::C
B::CC
-B::Disassembler
B::Stackobj
ByteLoader
CPAN
ExtUtils::Install
ExtUtils::Liblist
ExtUtils::Mksymlists
-Net::Cmd
-Net::Domain
-Net::POP3
-O
Pod::Plainer
Test::Harness::Iterator