X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/6cbdb08389ff1e88cf34833b1795e646ffac2dc0..d81bfef53a840704ead6eca438d96ee1129b70dd:/checkall

diff --git a/checkall b/checkall
index 238b2ee526..4512f3e325 100755
--- a/checkall
+++ b/checkall
@@ -15,7 +15,7 @@ open LOG,(">checkall.log") || die "Cannot open log file: $!";
 
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 print LOG "Build started on $hour:$min:$sec $mon/$mday/$year\n\n";
-open MAKE,("make |") || die "Cannot fork a make: $!";
+open MAKE,("make 2>&1 |") || die "Cannot fork a make: $!";
 while (<MAKE>) {
     print     $_;
     print LOG $_;
@@ -30,7 +30,7 @@ if (!close MAKE) {
     exit 1;
 }
     
-open CHECK,("make -k check|") || die "Cannot fork a make check: $!";
+open CHECK,("make -k check 2>&1 |") || die "Cannot fork a make check: $!";
 while (<CHECK>) {
     print     $_;
     print LOG $_;
@@ -68,23 +68,23 @@ print LOG "\n$dashes\n$banner\n$dashes\n\n";
 print     "\n$dashes\n$banner (full logs in checkall.log)\n$dashes\n\n";
 
 if (scalar @skip) {
-    print LOG (scalar @skip)." skipped tests:\n";
-    print     (scalar @skip)." 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 (scalar @xpass)." unexpected pass:\n";
-    print     (scalar @xpass)." 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 (scalar @xfail)." expected failures:\n";
-    print     (scalar @xfail)." 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 (scalar @fail)." failed tests:\n";
-    print     (scalar @fail)." failed tests:\n";
+    print LOG "* ".(scalar @fail)." failed tests:\n";
+    print     "* ".(scalar @fail)." failed tests:\n";
     map {print "  $_\n";print LOG "  $_\n"} @fail;
 }