From 9cf20110c8284e83a1bfb0a69328d1fbed0af90b Mon Sep 17 00:00:00 2001
From: Wouter van Oijen <wouter@webgui-svn>
Date: Fri, 17 Feb 2006 15:32:45 +0000
Subject: [PATCH] added list of failed packages to output of syntaxCheck.t

---
 t/syntaxCheck.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/t/syntaxCheck.t b/t/syntaxCheck.t
index 2e97a8b85..b71a63aad 100644
--- a/t/syntaxCheck.t
+++ b/t/syntaxCheck.t
@@ -20,6 +20,7 @@ use Test::More;
 plan skip_all => 'set TEST_SYNTAX to enable this test' unless $ENV{TEST_SYNTAX};
 
 my @modules;
+my @failed_packages;
 my $wgLib = WebGUI::Test->lib;
 diag("Checking modules in $wgLib");
 File::Find::find( \&getWebGUIModules, $wgLib);
@@ -33,6 +34,15 @@ diag("Planning on $numTests tests");
 foreach my $package (@modules) {
 	my $returnVal = system("$^X -I$wgLib -wc $package");
 	is($returnVal, 0, "syntax check for $package");
+	push(@failed_packages, $package) if ($returnVal != 0);
+}
+
+if (@failed_packages) {
+	print "\n# Compilation FAILED for the following packages:\n";
+	foreach my $package (@failed_packages) {
+		print "# - $package\n";
+	}
+	print "\n"
 }
 
 #----------------------------------------