summaryrefslogtreecommitdiffstats
path: root/t/1.t
diff options
context:
space:
mode:
Diffstat (limited to 't/1.t')
-rw-r--r--t/1.t18
1 files changed, 12 insertions, 6 deletions
diff --git a/t/1.t b/t/1.t
index c748a56e4..39cdc9a15 100644
--- a/t/1.t
+++ b/t/1.t
@@ -48,7 +48,7 @@ BEGIN { use_ok('RelationSet'); }
BEGIN { use_ok('Bug'); }
# and now we test the scripts
-@testitems = qw(
+@testitems = split("\n",qq(
bug_form.pl #4
buglist.cgi #5
changepassword.cgi #6
@@ -97,20 +97,26 @@ token.cgi #48
userprefs.cgi #49
whineatnews.pl #50
xml.cgi #51
-);
+));
our $warnings;
+my $verbose = $::ENV{VERBOSE};
$perlapp='/usr/bonsaitools/bin/perl';
foreach $file (@testitems) {
+ $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
+ next if (!$file); # skip null entries
$command = "$perlapp"." -c $file 2>&1";
$loginfo=`$command`;
# print '@@'.$loginfo.'##';
if ($loginfo =~ /syntax ok$/im) {
$warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
- if ($1) { ok(0,$file."--WARNING"); }
- else {
- ok(1,$file."--ERROR-AND-WARNING-FREE");
+ if ($1) {
+ if ($verbose) { print STDERR $loginfo; }
+ ok(0,$file."--WARNING");
+ } else {
+ ok(1,$file);
}
} else {
+ if ($verbose) { print STDERR $loginfo; }
ok(0,$file."--ERROR");
- }
+ }
}