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
15 # Okay, this is the list.
17 my @Core_Modules = grep /\S/, <DATA>;
20 # Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
21 if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
22 push @Core_Modules, qw(Net::Cmd Net::POP3);
25 @Core_Modules = sort @Core_Modules;
27 print "1..".(1+@Core_Modules)."\n";
30 = "ok 1 - All modules should have tests # TODO Make Schwern Poorer\n";
39 foreach my $module (@Core_Modules) {
40 print "$module compile failed\nnot " unless compile_module($module);
41 print "ok $test_num\n";
45 # We do this as a separate process else we'll blow the hell
46 # out of our namespace.
50 my $out = scalar `$^X "-I../lib" lib/compmod.pl $module`;
55 # These modules have no tests of their own.
56 # Keep up to date with
57 # http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?UntestedModules
58 # and vice-versa. The list should only shrink.
74 Test::Harness::Iterator