A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Documentation fixup and light reindentation
[simgrid.git]
/
checkall
diff --git
a/checkall
b/checkall
index
7cf2a7a
..
80415ca
100755
(executable)
--- a/
checkall
+++ b/
checkall
@@
-65,21
+65,26
@@
$banner = "# $banner #";
my $dashes = $banner;
$dashes =~ s/./#/g;
print LOG "\n$dashes\n$banner\n$dashes\n\n";
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) {
if (scalar @skip) {
- print LOG "
S
kipped tests:\n";
- print "
S
kipped tests:\n";
+ print LOG "
* ".(scalar @skip)." s
kipped tests:\n";
+ print "
* ".(scalar @skip)." s
kipped tests:\n";
map {print " $_\n";print LOG " $_\n"} @skip;
}
if (scalar @xpass) {
map {print " $_\n";print LOG " $_\n"} @skip;
}
if (scalar @xpass) {
- print LOG "
U
nexpected pass:\n";
- print "
U
nexpected pass:\n";
+ print LOG "
* ".(scalar @xpass)." u
nexpected pass:\n";
+ print "
* ".(scalar @xpass)." u
nexpected pass:\n";
map {print " $_\n";print LOG " $_\n"} @xpass;
}
map {print " $_\n";print LOG " $_\n"} @xpass;
}
+if (scalar @xfail) {
+ print LOG "* ".(scalar @xfail)." expected failures:\n";
+ print "* ".(scalar @xfail)." expected failures:\n";
+ map {print " $_\n";print LOG " $_\n"} @xfail;
+}
if (scalar @fail) {
if (scalar @fail) {
- print LOG "
F
ailed tests:\n";
- print "
F
ailed tests:\n";
+ print LOG "
* ".(scalar @fail)." f
ailed tests:\n";
+ print "
* ".(scalar @fail)." f
ailed tests:\n";
map {print " $_\n";print LOG " $_\n"} @fail;
}
map {print " $_\n";print LOG " $_\n"} @fail;
}