[26035] trunk/base/src/darwinports1.0/test_util.tcl
source_changes at macosforge.org
source_changes at macosforge.org
Sat Jun 9 15:39:40 PDT 2007
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
More information about the macports-changes
mailing list