Ignore:
Timestamp:
Sep 18, 2013, 6:39:44 PM (7 years ago)
Author:
cal@…
Message:

regression tests: fix test output parsing using changes from src/macports1.0/tests/test.tcl

File:
1 edited

Legend:

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

    r108400 r111298  
    101101        set result [eval exec $tcl test.tcl $arguments]
    102102        set lastline [lindex [split $result "\n"] end]
     103
     104        if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
     105            set lastline [lindex [split $result "\n"] end-2]
     106            set errmsg [lindex [split $result "\n"] end]
     107        }
     108
    103109        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]
     110        set total [lindex $splitresult 2]
     111        set pass [lindex $splitresult 4]
     112        set skip [lindex $splitresult 6]
     113        set fail [lindex $splitresult 8]
    109114
    110115        # Check for errors.
    111         if { $fail != 0 || $skip != 0 } {
    112             set err "yes"
    113         }
     116        if { $fail != 0 } { set err "yes" }
    114117
    115118        set out ""
Note: See TracChangeset for help on using the changeset viewer.