Changeset 125596 for trunk/base/tests


Ignore:
Timestamp:
Sep 22, 2014, 11:27:13 AM (6 years ago)
Author:
jmr@…
Message:

always print details for tests that fail

Location:
trunk/base/tests
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/tests/test.tcl.in

    r120186 r125596  
    2525set test_name ""
    2626set color_out ""
    27 set tcl ""
    2827set err ""
    2928
     
    8786    cd test/$test_name
    8887
    89     set result [eval exec $tcl test.tcl $arguments 2>@stderr]
     88    set result [exec $tcl test.tcl {*}$arguments 2>@stderr]
    9089    puts $result
    9190
     
    9493        cd test/$test
    9594   
    96         set result [eval exec $tcl test.tcl $arguments 2>@stderr]
     95        set result [exec $tcl test.tcl {*}$arguments 2>@stderr]
    9796        set lastline [lindex [split $result "\n"] end]
    9897
     
    109108
    110109        # Check for errors.
    111         if { $fail != 0 } { set err "yes" }
     110        if { $fail != 0 } {
     111            set err "yes"
     112            puts $result
     113        }
    112114
    113115        set out ""
  • trunk/base/tests/test/svn-and-patchsites/test.tcl

    r125595 r125596  
    1515        return "No error found."
    1616    } else {
    17         puts [exec cat $path/$output_file]
    1817        return "Errors found in output file."
    1918    }
Note: See TracChangeset for help on using the changeset viewer.