Francois Gouget : winetest: Copy the winetest start, result summary and done lines to the per-test logs.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: f7fc108fa5af7f89263395fe1015e1dffa14a739
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=f7fc108fa5af7f89263395fe1...

Author: Francois Gouget <fgouget(a)free.fr>
Date:   Fri Mar 14 17:24:41 2008 +0100

winetest: Copy the winetest start, result summary and done lines to the per-test logs.

---

 winetest/dissect |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index b5ea968..0d017fc 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -163,14 +163,15 @@ while (<IN>) {
           or mydie "no start line:$.: $_";
         ($unit,$test,$source,$rev) = ($1,$2,$3,$4);
         open OUT, ">:raw", $tmpfile or mydie "can't open $tmpfile: $!\n";
-    } elsif (s/^(.*$test.*: (\d+) tests executed \((\d+) marked as todo, (\d+) failures?\), (\d+) skipped\.)\r?$/$1/) {
+        print OUT;
+    } elsif (/^(.*$test.*: (\d+) tests executed \((\d+) marked as todo, (\d+) failures?\), (\d+) skipped\.)\r?$/) {
         $lines++;
         $total += $2;
         $todo += $3;
         $failed += $4;
         $skipped += $5;
         print OUT;
-    } elsif (s/$unit:$test done \((-?\d+)\)\r?$//) {
+    } elsif (/$unit:$test done \((-?\d+)\)\r?$/) {
         chomp;                  # current test ended
         if ($lines==0) {
             $result = "failed $1 - -";