[svn:parrot] r43204 - trunk/tools/dev

coke at svn.parrot.org coke at svn.parrot.org
Tue Dec 22 06:43:59 UTC 2009


Author: coke
Date: Tue Dec 22 06:43:58 2009
New Revision: 43204
URL: https://trac.parrot.org/parrot/changeset/43204

Log:
Properly fail a test if no deps were defined in the Makefile for this C file.

Modified:
   trunk/tools/dev/checkdepend.pl

Modified: trunk/tools/dev/checkdepend.pl
==============================================================================
--- trunk/tools/dev/checkdepend.pl	Tue Dec 22 06:35:52 2009	(r43203)
+++ trunk/tools/dev/checkdepend.pl	Tue Dec 22 06:43:58 2009	(r43204)
@@ -26,7 +26,7 @@
 
 =cut
 
-my $files = `ack -fa . | grep '\\.c\$'`;
+my $files = `ack -fa {src,compilers} | grep '\\.c\$'`;
 
 my %deps;
 
@@ -54,6 +54,7 @@
 $rules =~ s/\\\n/ /g;
 $rules =~ s/\Q$(SRC_DIR)\E/src/g;
 $rules =~ s/\Q$(IO_DIR)\E/src\/io/g;
+$rules =~ s/\Q$(PIRC_DIR)\E/compilers\/pirc\/src/g;
 $rules =~ s/\Q$(PMC_INC_DIR)\E/include/g;
 $rules =~ s/\Q$(O)\E//g;
 
@@ -63,6 +64,7 @@
     my $failed = 0;
     if (!defined($declared)) {
         $failed = 1;
+        is("", join(' ', @{$deps{$file}}), $file);
     }
     else
     {
@@ -92,7 +94,7 @@
             $failed = 1;
         }
     }
-    pass("$file has proper deps") unless $failed;
+    pass($file) unless $failed;
 }
 
 sub collapse_path {


More information about the parrot-commits mailing list