TODO - Make Schwern Poorer

Message-ID: <20020319225027.GF311@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@15366

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 7624181..e533429 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -114,9 +114,17 @@ foreach my $mod (<DATA>) {
 
 my @Core_Modules = sort keys %Core_Modules;
 
-print "1..".@Core_Modules."\n";
+print "1..".(1+@Core_Modules)."\n";
 
-my $test_num = 1;
+my $message
+  = "ok 1 - All modules should have tests # TODO Make Schwern Poorer\n";
+if (@Core_Modules) {
+  print "not $message";
+} else {
+  print $message;
+}
+
+my $test_num = 2;
 
 foreach my $module (@Core_Modules) {
     print "$module compile failed\nnot " unless compile_module($module);