Changeset 138951 for trunk/base


Ignore:
Timestamp:
Jul 24, 2015, 10:27:30 PM (5 years ago)
Author:
raimue@…
Message:

base: sync test.tcl scripts with each other

Location:
trunk/base/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/macports1.0/tests/test.tcl

    r125619 r138951  
    1616
    1717proc print_help {arg} {
    18     if { $arg eq "tests" } {
     18    if {$arg eq "tests"} {
    1919        puts "The list of available tests is:"
    2020        cd tests
     
    3535# Process args
    3636foreach arg $argv {
    37     if { $arg eq "-h" || $arg eq "-help" } {
     37    if {$arg eq "-h" || $arg eq "-help"} {
    3838        print_help ""
    3939        exit 0
    40     } elseif { $arg eq "-debug" } {
     40    } elseif {$arg eq "-debug"} {
    4141        set index [expr {[lsearch $argv $arg] + 1}]
    4242        set level [lindex $argv $index]
    43         if { $level >= 0 && $level <= 3 } {
    44             lappend arguments -debug $level
     43        if {$level >= 0 && $level <= 3} {
     44            lappend arguments "-debug" $level
    4545        } else {
    4646            puts "Invalid debug level."
    4747            exit 1
    4848        }
    49     } elseif { $arg eq "-t" } {
     49    } elseif {$arg eq "-t"} {
    5050        set index [expr {[lsearch $argv $arg] + 1}]
    5151        set test_name [lindex $argv $index]
     
    7575    set result [exec -ignorestderr $tcl $test_name {*}$arguments]
    7676    puts $result
    77 
    7877} else {
    7978    cd tests
     
    8584
    8685        if {[lrange [split $lastline "\t"] 1 1] ne "Total"} {
    87             set lastline [lindex [split $result "\n"] end-2]
    88             set errmsg [lindex [split $result "\n"] end]
     86            if {[lrange [split $lastline "\t"] 1 1] eq ""} {
     87                set lastline [lindex [split $result "\n"] 0]
     88                set errmsg [lindex [split $result "\n"] 2]
     89            } else {
     90                set lastline [lindex [split $result "\n"] end-2]
     91                set errmsg [lindex [split $result "\n"] end]
     92            }
    8993        }
    9094
     
    96100
    97101        # Format output
    98         if {$total < 10} { set total "0${total}"}
    99         if {$pass < 10} { set pass "0${pass}"}
    100         if {$skip < 10} { set skip "0${skip}"}
    101         if {$fail < 10} { set fail "0${fail}"}
     102        if {$total < 10} {
     103            set total "0${total}"
     104        }
     105        if {$pass < 10} {
     106            set pass "0${pass}"
     107        }
     108        if {$skip < 10} {
     109            set skip "0${skip}"
     110        }
     111        if {$fail < 10} {
     112            set fail "0${fail}"
     113        }
    102114
    103115        # Check for errors.
  • trunk/base/src/package1.0/tests/test.tcl

    r119687 r138951  
    1616
    1717proc print_help {arg} {
    18     if { $arg eq "tests" } {
     18    if {$arg eq "tests"} {
    1919        puts "The list of available tests is:"
    2020        cd tests
     
    5555        foreach test $test_suite {
    5656            if {$test_name ne $test} {
    57                 set no [expr {$no + 1}]
     57                incr no
    5858            }
    5959        }
  • trunk/base/src/port1.0/tests/test.tcl

    r119689 r138951  
    5555        foreach test $test_suite {
    5656            if {$test_name ne $test} {
    57                 set no [expr {$no + 1}]
     57                incr no
    5858            }
    5959        }
     
    8484
    8585        if {[lrange [split $lastline "\t"] 1 1] ne "Total"} {
    86             set lastline [lindex [split $result "\n"] end-2]
    87             set errmsg [lindex [split $result "\n"] end]
     86            if {[lrange [split $lastline "\t"] 1 1] eq ""} {
     87                set lastline [lindex [split $result "\n"] 0]
     88                set errmsg [lindex [split $result "\n"] 2]
     89            } else {
     90                set lastline [lindex [split $result "\n"] end-2]
     91                set errmsg [lindex [split $result "\n"] end]
     92            }
    8893        }
    8994
Note: See TracChangeset for help on using the changeset viewer.