This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove O from the untested modules list.
[perl5.git] / t / lib / 1_compile.t
CommitLineData
7200bc44
JH
1#!./perl
2
41f7d568
MS
3# Modules should have their own tests. For historical reasons, some
4# do not. This does basic compile tests on modules that have no tests
5# of their own.
6
7200bc44 7BEGIN {
41f7d568
MS
8 chdir 't';
9 @INC = '../lib';
7200bc44
JH
10}
11
12use strict;
13use warnings;
dc459aad 14use File::Spec::Functions;
6b40b044 15
cdd2acaa
JH
16# Okay, this is the list.
17
d36c8744 18my @Core_Modules = grep /\S/, <DATA>;
41f7d568 19chomp @Core_Modules;
7200bc44 20
7374aa61
JH
21if (eval { require Socket }) {
22 push @Core_Modules, qw(Net::Domain);
23 # Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
24 if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
25 push @Core_Modules, qw(Net::Cmd Net::POP3);
26 }
d36c8744
JH
27}
28
29@Core_Modules = sort @Core_Modules;
30
4c4ccc83 31print "1..".(1+@Core_Modules)."\n";
7200bc44 32
4c4ccc83
NC
33my $message
34 = "ok 1 - All modules should have tests # TODO Make Schwern Poorer\n";
35if (@Core_Modules) {
36 print "not $message";
37} else {
38 print $message;
39}
40
41my $test_num = 2;
cdd2acaa 42
7200bc44 43foreach my $module (@Core_Modules) {
b328b501
CB
44 my $todo = '';
45 $todo = "# TODO $module needs porting on $^O" if $module eq 'ByteLoader' && $^O eq 'VMS';
46 print "# $module compile failed\nnot " unless compile_module($module);
47 print "ok $test_num $todo\n";
7200bc44
JH
48 $test_num++;
49}
50
656b9f42
JH
51# We do this as a separate process else we'll blow the hell
52# out of our namespace.
7200bc44 53sub compile_module {
656b9f42 54 my ($module) = $_[0];
41f7d568 55
dc459aad
JH
56 my $compmod = catfile(curdir(), 'lib', 'compmod.pl');
57 my $lib = '-I' . catdir(updir(), 'lib');
58
59 my $out = scalar `$^X $lib $compmod $module`;
1189d1e4
JH
60 print "# $out";
61 return $out =~ /^ok/;
7200bc44 62}
6b40b044 63
41f7d568
MS
64# These modules have no tests of their own.
65# Keep up to date with
66# http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
67# and vice-versa. The list should only shrink.
6b40b044 68__DATA__
fd0a5cd9 69B::C
41f7d568 70B::CC
41f7d568
MS
71B::Stackobj
72ByteLoader
73CPAN
74CPAN::FirstTime
75DynaLoader
76ExtUtils::MM_NW5
77ExtUtils::Install
78ExtUtils::Liblist
79ExtUtils::Mksymlists
41f7d568
MS
80Pod::Plainer
81Test::Harness::Iterator