[26035] trunk/base/src/darwinports1.0/test_util.tcl

[source_changes at macosforge.org]

Revision: 26035
          http://trac.macosforge.org/projects/macports/changeset/26035
Author:   eridius at macports.org
Date:     2007-06-09 15:39:40 -0700 (Sat, 09 Jun 2007)

Log Message:
-----------
Tweak test_util to properly trace the darwinports_util methods if no specific list is given

Modified Paths:
--------------
    trunk/base/src/darwinports1.0/test_util.tcl

Modified: trunk/base/src/darwinports1.0/test_util.tcl
===================================================================
--- trunk/base/src/darwinports1.0/test_util.tcl	2007-06-09 22:05:24 UTC (rev 26034)
+++ trunk/base/src/darwinports1.0/test_util.tcl	2007-06-09 22:39:40 UTC (rev 26035)
@@ -102,13 +102,14 @@
     if {$options(t) > 1} {
         lappend ops enterstep leavestep
     }
+    set util_list {ldindex lpop lpush lshift lunshift try throw}
     if {[llength $argv] > 0} {
         set list $argv
         if {[set idx [lsearch -exact $list *]] != -1} {
-            set list [eval lreplace [list $list] $idx $idx [namespace eval darwinports_util { namespace export }]]
+            set list [eval lreplace [list $list] $idx $idx $util_list]
         }
     } else {
-        set list [namespace eval darwinports_util { namespace export }]
+        set list $util_list
     }
     foreach arg $list {
         trace add execution $arg $ops dotrace

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070609/527dbb66/attachment.html