Changeset 108400


Ignore:
Timestamp:
Jul 22, 2013, 7:03:09 PM (6 years ago)
Author:
cal@…
Message:

tests/test.tcl: fix parsing tcltest output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gsoc13-tests/tests/test.tcl

    r107997 r108400  
    100100   
    101101        set result [eval exec $tcl test.tcl $arguments]
    102         set total [lrange [split $result "\t"] 2 2]
    103         set pass [lrange [split $result "\t"] 4 4]
    104         set skip [lrange [split $result "\t"] 6 6]
    105         set fail [lrange [split $result "\t\n"] 8 8]
    106         set errmsg [lrange [split $result "\n"] 2 2]
     102        set lastline [lindex [split $result "\n"] end]
     103        set splitresult [split $lastline "\t"]
     104        set total  [lindex $splitresult 2]
     105        set pass   [lindex $splitresult 4]
     106        set skip   [lindex $splitresult 6]
     107        set fail   [lindex $splitresult 8]
     108        set errmsg [lindex $splitresult 2]
    107109
    108110        # Check for errors.
Note: See TracChangeset for help on using the changeset viewer.