[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