Added a --verbose option to runtests.sh that the tinderbox scripts can use to get all the warnings and errors and whatnot into the build log. Also corrected several syntax and logic errors in the 1.t test file.

This commit is contained in:
justdave%syndicomm.com 2001-09-01 03:06:15 +00:00
parent f305c68545
commit 5554d33e29
2 changed files with 22 additions and 7 deletions

View File

@ -1,3 +1,12 @@
#!/bin/sh
/usr/bonsaitools/bin/perl -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
export VERBOSE=0
PART1='use Test::Harness qw(&runtests $verbose); $verbose='
PART2='; runtests @ARGV;'
for f in $*; do
if [ $f == "--verbose" ] ; then
export VERBOSE=1
fi
done
/usr/bonsaitools/bin/perl -e "${PART1}${VERBOSE}${PART2}" t/*.t

View File

@ -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");
}
}
}