# The main test-loop
#
+my $failed;
my $testnum;
my $ok=0;
my $total=0;
# valid test case number
$total++;
}
- if(($error>0) && !$anyway) {
- # a test failed, abort
- print "\n - abort tests\n";
- last;
+ if($error>0) {
+ if(!$anyway) {
+ # a test failed, abort
+ print "\n - abort tests\n";
+ last;
+ }
+ $failed.= "$testnum ";
}
elsif(!$error) {
$ok++;
if($total) {
print "$ok tests out of $total reported OK\n";
+
+ if($ok != $total) {
+ print "These test cases failed: $failed\n";
+ }
}
else {
print "No tests were performed!\n";