[111478] trunk/base
marius at macports.org
marius at macports.org
Mon Sep 23 12:49:34 PDT 2013
Revision: 111478
https://trac.macports.org/changeset/111478
Author: marius at macports.org
Date: 2013-09-23 12:49:34 -0700 (Mon, 23 Sep 2013)
Log Message:
-----------
redirect stderr in all exec cases
Modified Paths:
--------------
trunk/base/src/macports1.0/tests/test.tcl
trunk/base/src/package1.0/tests/test.tcl
trunk/base/tests/test.tcl
Modified: trunk/base/src/macports1.0/tests/test.tcl
===================================================================
--- trunk/base/src/macports1.0/tests/test.tcl 2013-09-23 19:49:10 UTC (rev 111477)
+++ trunk/base/src/macports1.0/tests/test.tcl 2013-09-23 19:49:34 UTC (rev 111478)
@@ -72,7 +72,7 @@
# Run tests
if { $test_name != ""} {
- set result [eval exec $tcl $test_name $arguments]
+ set result [eval exec $tcl $test_name $arguments 2>@stderr]
puts $result
} else {
@@ -80,7 +80,7 @@
set test_suite [glob *.test]
foreach test $test_suite {
- set result [eval exec $tcl $test $arguments]
+ set result [eval exec $tcl $test $arguments 2>@stderr]
set lastline [lindex [split $result "\n"] end]
if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
Modified: trunk/base/src/package1.0/tests/test.tcl
===================================================================
--- trunk/base/src/package1.0/tests/test.tcl 2013-09-23 19:49:10 UTC (rev 111477)
+++ trunk/base/src/package1.0/tests/test.tcl 2013-09-23 19:49:34 UTC (rev 111478)
@@ -72,7 +72,7 @@
# Run tests
if { $test_name != ""} {
- set result [eval exec $tcl $test_name $arguments]
+ set result [eval exec $tcl $test_name $arguments 2>@stderr]
puts $result
} else {
Modified: trunk/base/tests/test.tcl
===================================================================
--- trunk/base/tests/test.tcl 2013-09-23 19:49:10 UTC (rev 111477)
+++ trunk/base/tests/test.tcl 2013-09-23 19:49:34 UTC (rev 111478)
@@ -91,14 +91,14 @@
if { $test_name != ""} {
cd test/$test_name
- set result [eval exec $tcl test.tcl $arguments]
+ set result [eval exec $tcl test.tcl $arguments 2>@stderr]
puts $result
} else {
foreach test $test_suite {
cd test/$test
- set result [eval exec $tcl test.tcl $arguments]
+ set result [eval exec $tcl test.tcl $arguments 2>@stderr]
set lastline [lindex [split $result "\n"] end]
if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130923/0afbe6fa/attachment.html>
More information about the macports-changes
mailing list