blob: 3a26bc0dc799adbce87d247b432d44bfa99f70f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!./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 't';
@INC = '../lib';
}
use strict;
use warnings;
use File::Spec::Functions;
# Okay, this is the list.
my @Core_Modules = grep /\S/, <DATA>;
chomp @Core_Modules;
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);
}
}
if(eval { require B }) {
push @Core_Modules, qw(B::C B::CC B::Stackobj);
}
@Core_Modules = sort @Core_Modules;
print "1..".(1+@Core_Modules)."\n";
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
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 $todo\n";
$test_num++;
}
# We do this as a separate process else we'll blow the hell
# out of our namespace.
sub compile_module {
my ($module) = $_[0];
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/;
}
# These modules have no tests of their own.
# Keep up to date with
# http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
# and vice-versa. The list should only shrink.
__DATA__
CPAN::FirstTime
DynaLoader
|
