From 5df71d4de09acaf60d02d7440b35ae255dd8e704 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 16 Jan 2006 16:57:06 +0000
Subject: [PATCH] now using sub folders for tests

---
 sbin/testCodebase.pl | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/sbin/testCodebase.pl b/sbin/testCodebase.pl
index dab57bc99..e6ea4b5d4 100644
--- a/sbin/testCodebase.pl
+++ b/sbin/testCodebase.pl
@@ -11,7 +11,8 @@
 $|=1;
 
 use strict;
-use lib '../..';
+use lib '../lib';
+use File::Find;
 use Getopt::Long;
 
 my $configFile;
@@ -36,15 +37,22 @@ STOP
 	exit;
 }
 
-opendir(DIR,"../t");
-my @files = readdir(DIR);
-closedir(DIR);
-
-chdir("../t");
 my $someTestFailed = 0;
 my @failedModules;
-foreach my $file (@files) {
-	next unless $file =~ m/^(.*?)\.t$/;
+File::Find::find(\&runTests, "../t");
+if ($someTestFailed) {
+	print "\n\n";
+	print "---------------------------------------\n";
+	print " $someTestFailed test modules experienced failures:\n";
+	print "\t".join("\n\t",@failedModules)."\n";
+	print "---------------------------------------\n";
+	print "\n\n";
+}
+exit $someTestFailed;
+
+sub runTests {
+	my $file = $_;
+	return undef unless $file =~ m/^(.*?)\.t$/;
 	my $testType = $1;
 	$testType =~ s/_/ /g;
 	print "Running $testType tests...\n";
@@ -60,13 +68,5 @@ foreach my $file (@files) {
 	}
 	print "\n";
 }
-if ($someTestFailed) {
-	print "\n\n";
-	print "---------------------------------------\n";
-	print " $someTestFailed test modules experienced failures:\n";
-	print "\t".join("\n\t",@failedModules)."\n";
-	print "---------------------------------------\n";
-	print "\n\n";
-}
-exit $someTestFailed;
+