What started as a small nit (the charnames test, nit found

[p5sagit/p5-mst-13.2.git] / t / lib / 1_compile.t

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 18b0d05..46b9ca2 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -14,9 +14,16 @@ use warnings;
 
 # Okay, this is the list.
 
-my @Core_Modules = grep /\S/, sort <DATA>;
+my @Core_Modules = grep /\S/, <DATA>;
 chomp @Core_Modules;
 
+# 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
@@ -30,8 +37,10 @@ if (@Core_Modules) {
 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++;
 }
 
@@ -50,8 +59,8 @@ sub compile_module {
 # 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
@@ -61,9 +70,7 @@ ExtUtils::MM_NW5
 ExtUtils::Install
 ExtUtils::Liblist
 ExtUtils::Mksymlists
-Net::Cmd
 Net::Domain
-Net::POP3
 O
 Pod::Plainer
 Test::Harness::Iterator