[119684] trunk/base/src/port1.0/tests/test.tcl

[cal at macports.org]

Revision: 119684
          https://trac.macports.org/changeset/119684
Author:   cal at 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"} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140503/5416a6cc/attachment.html>