From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 19 Mar 2002 22:50:28 +0000 (+0000)
Subject: TODO - Make Schwern Poorer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c4ccc830914f8e3cdad27b22d4cbb0fffb92c26;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);