From 7e406183cef64a9c26733ecc9c3d07857eabca68 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Mon, 17 Sep 2001 01:35:15 +0000
Subject: Fix to make the tests generate the list of files to test instead of
 having to update the list manually whenever a file is added or removed. The
 main logic is in t/Support/Files.pm, changes to the test files are needed to
 allow it to function properly.

NOT_PART_OF_BUILD. No review needed for tests at this time.
---
 t/Support/Files.pm | 81 +++++++++++++++++++-----------------------------------
 1 file changed, 28 insertions(+), 53 deletions(-)

(limited to 't/Support/Files.pm')

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index 753e94004..a2d38638f 100644
--- a/t/Support/Files.pm
+++ b/t/Support/Files.pm
@@ -33,58 +33,33 @@
 
 package Support::Files;
 
-@testitems = split("\n",qq(
-bug_form.pl #1
-buglist.cgi #2
-changepassword.cgi #3
-checksetup.pl #4
-colchange.cgi #5
-collectstats.pl #6
-createaccount.cgi #7
-createattachment.cgi #8
-defparams.pl #9
-describecomponents.cgi #10
-describekeywords.cgi #11
-doeditparams.cgi #12
-doeditvotes.cgi #13
-duplicates.cgi #14
-editcomponents.cgi #15
-editgroups.cgi #16
-editkeywords.cgi #27
-editmilestones.cgi #18
-editparams.cgi #19
-editproducts.cgi #20
-editusers.cgi #21
-editversions.cgi #22
-enter_bug.cgi #23
-globals.pl #24
-importxml.pl #25
-long_list.cgi #26
-move.pl #27
-new_comment.cgi #28
-post_bug.cgi #29
-process_bug.cgi #30
-query.cgi #31
-queryhelp.cgi #32
-quips.cgi #33
-relogin.cgi #34
-reports.cgi #35
-sanitycheck.cgi #36
-show_activity.cgi #37
-show_bug.cgi #38
-showattachment.cgi #39
-showdependencygraph.cgi #40
-showdependencytree.cgi #41
-showvotes.cgi #42
-syncshadowdb #43
-token.cgi #44
-userprefs.cgi #45
-whineatnews.pl #46
-xml.cgi #47
-attachment.cgi #48
-editattachstatuses.cgi #49
-globals.pl #50
-CGI.pl #51
-));
+@additional_files = ('syncshadowdb');
+@exclude_files    = ('processmail');
+
+$file = '*';
+@files = glob($file);
+
+sub isTestingFile {
+  my ($file) = @_;
+  if ($file =~ /\.cgi$|\.pl$/) {
+    return 1;
+  }
+  my $additional;
+  foreach $additional (@additional_files) {
+    if ($file eq $additional) { return 1; }
+  }
+  my $exclude;
+  foreach $exclude (@exclude_files) {
+  	if ($file eq $exclude) { return undef; } # get rid of excluded files.
+  }
+  return undef;
+}
+
+foreach $currentfile (@files) {
+	if (isTestingFile($currentfile)) {
+		push(@testitems,$currentfile);
+	}
+}
+
 
 1;
-- 
cgit v1.2.3-24-g4f1b