X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/aa33d267921893d6a12de561721cadb23638f5da..77b9ab2bde5f8a9db18bc80681149fcec51233db:/checkall diff --git a/checkall b/checkall index 8bfc39f894..238b2ee526 100755 --- a/checkall +++ b/checkall @@ -65,26 +65,26 @@ $banner = "# $banner #"; my $dashes = $banner; $dashes =~ s/./#/g; print LOG "\n$dashes\n$banner\n$dashes\n\n"; -print "\n$dashes\n$banner (full logs in checkall.pl)\n$dashes\n\n"; +print "\n$dashes\n$banner (full logs in checkall.log)\n$dashes\n\n"; if (scalar @skip) { - print LOG "Skipped tests:\n"; - print "Skipped tests:\n"; + print LOG (scalar @skip)." skipped tests:\n"; + print (scalar @skip)." skipped tests:\n"; map {print " $_\n";print LOG " $_\n"} @skip; } if (scalar @xpass) { - print LOG "Unexpected pass:\n"; - print "Unexpected pass:\n"; + print LOG (scalar @xpass)." unexpected pass:\n"; + print (scalar @xpass)." unexpected pass:\n"; map {print " $_\n";print LOG " $_\n"} @xpass; } if (scalar @xfail) { - print LOG "Expected failures:\n"; - print "Expected failures:\n"; + print LOG (scalar @xfail)." expected failures:\n"; + print (scalar @xfail)." expected failures:\n"; map {print " $_\n";print LOG " $_\n"} @xfail; } if (scalar @fail) { - print LOG "Failed tests:\n"; - print "Failed tests:\n"; + print LOG (scalar @fail)." failed tests:\n"; + print (scalar @fail)." failed tests:\n"; map {print " $_\n";print LOG " $_\n"} @fail; }