Revision: 119684 https://trac.macports.org/changeset/119684 Author: cal@macports.org Date: 2014-05-03 15:01:47 -0700 (Sat, 03 May 2014) Log Message: ----------- base: port1.0 tests: Avoid eval, use {*}, use Tcl 8.5 exec -ignorestderr Modified Paths: -------------- trunk/base/src/port1.0/tests/test.tcl Modified: trunk/base/src/port1.0/tests/test.tcl =================================================================== --- trunk/base/src/port1.0/tests/test.tcl 2014-05-03 21:59:55 UTC (rev 119683) +++ trunk/base/src/port1.0/tests/test.tcl 2014-05-03 22:01:47 UTC (rev 119684) @@ -72,7 +72,7 @@ # Run tests if { $test_name ne ""} { - set result [eval exec $tcl $test_name $arguments 2>@stderr] + set result [exec -ignorestderr $tcl $test_name {*}$arguments] puts $result } else { @@ -80,7 +80,7 @@ set test_suite [glob *.test] foreach test $test_suite { - set result [eval exec $tcl $test $arguments 2>@stderr] + set result [exec -ignorestderr $tcl $test {*}$arguments] set lastline [lindex [split $result "\n"] end] if {[lrange [split $lastline "\t"] 1 1] != "Total"} {