[108400] branches/gsoc13-tests/tests/test.tcl

cal at macports.org cal at macports.org
Mon Jul 22 12:03:09 PDT 2013


Revision: 108400
          https://trac.macports.org/changeset/108400
Author:   cal at macports.org
Date:     2013-07-22 12:03:09 -0700 (Mon, 22 Jul 2013)
Log Message:
-----------
tests/test.tcl: fix parsing tcltest output

Modified Paths:
--------------
    branches/gsoc13-tests/tests/test.tcl

Modified: branches/gsoc13-tests/tests/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test.tcl	2013-07-22 19:00:31 UTC (rev 108399)
+++ branches/gsoc13-tests/tests/test.tcl	2013-07-22 19:03:09 UTC (rev 108400)
@@ -99,11 +99,13 @@
         cd test/$test
     
         set result [eval exec $tcl test.tcl $arguments]
-        set total [lrange [split $result "\t"] 2 2]
-        set pass [lrange [split $result "\t"] 4 4]
-        set skip [lrange [split $result "\t"] 6 6]
-        set fail [lrange [split $result "\t\n"] 8 8]
-        set errmsg [lrange [split $result "\n"] 2 2]
+        set lastline [lindex [split $result "\n"] end]
+        set splitresult [split $lastline "\t"]
+        set total  [lindex $splitresult 2]
+        set pass   [lindex $splitresult 4]
+        set skip   [lindex $splitresult 6]
+        set fail   [lindex $splitresult 8]
+        set errmsg [lindex $splitresult 2]
 
         # Check for errors.
         if { $fail != 0 || $skip != 0 } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130722/ab803a21/attachment.html>


More information about the macports-changes mailing list