[125596] trunk/base/tests

[jmr at macports.org]

Revision: 125596
          https://trac.macports.org/changeset/125596
Author:   jmr at macports.org
Date:     2014-09-22 04:27:13 -0700 (Mon, 22 Sep 2014)
Log Message:
-----------
always print details for tests that fail

Modified Paths:
--------------
    trunk/base/tests/test/svn-and-patchsites/test.tcl
    trunk/base/tests/test.tcl.in

Modified: trunk/base/tests/test/svn-and-patchsites/test.tcl
===================================================================
--- trunk/base/tests/test/svn-and-patchsites/test.tcl	2014-09-22 10:54:29 UTC (rev 125595)
+++ trunk/base/tests/test/svn-and-patchsites/test.tcl	2014-09-22 11:27:13 UTC (rev 125596)
@@ -14,7 +14,6 @@
     if {$line == -1} {
         return "No error found."
     } else {
-        puts [exec cat $path/$output_file]
         return "Errors found in output file."
     }
 }

Modified: trunk/base/tests/test.tcl.in
===================================================================
--- trunk/base/tests/test.tcl.in	2014-09-22 10:54:29 UTC (rev 125595)
+++ trunk/base/tests/test.tcl.in	2014-09-22 11:27:13 UTC (rev 125596)
@@ -24,7 +24,6 @@
 set arguments ""
 set test_name ""
 set color_out ""
-set tcl ""
 set err ""
 
 # Get tclsh path.
@@ -86,14 +85,14 @@
 if {$test_name ne ""} {
     cd test/$test_name
 
-    set result [eval exec $tcl test.tcl $arguments 2>@stderr]
+    set result [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 2>@stderr]
+        set result [exec $tcl test.tcl {*}$arguments 2>@stderr]
         set lastline [lindex [split $result "\n"] end]
 
         if {[lrange [split $lastline "\t"] 1 1] != "Total"} {
@@ -108,7 +107,10 @@
         set fail [lindex $splitresult 8]
 
         # Check for errors.
-        if { $fail != 0 } { set err "yes" }
+        if { $fail != 0 } {
+            set err "yes"
+            puts $result
+        }
 
         set out ""
         if { ($fail != 0 || $skip != 0) && $color_out eq "" } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140922/fbb1a37c/attachment.html>