[118610] branches/release_2_3/base/tests/test
cal at macports.org
cal at macports.org
Sat Apr 5 14:36:58 PDT 2014
Revision: 118610
https://trac.macports.org/changeset/118610
Author: cal at macports.org
Date: 2014-04-05 14:36:58 -0700 (Sat, 05 Apr 2014)
Log Message:
-----------
base: source macports_fastload.tcl before loading pextlib in tracemode test
Modified Paths:
--------------
branches/release_2_3/base/tests/test/library.tcl
branches/release_2_3/base/tests/test/trace/test.tcl
Modified: branches/release_2_3/base/tests/test/library.tcl
===================================================================
--- branches/release_2_3/base/tests/test/library.tcl 2014-04-05 21:20:48 UTC (rev 118609)
+++ branches/release_2_3/base/tests/test/library.tcl 2014-04-05 21:36:58 UTC (rev 118610)
@@ -145,9 +145,9 @@
set fp [open $filename r]
while {[gets $fp line] != -1} {
- set line [string tolower $line]
+ set testline [string tolower $line]
- if {[string match $lookup $line] != 0} {
+ if {[string match $lookup $testline] != 0} {
close $fp
return $line
}
Modified: branches/release_2_3/base/tests/test/trace/test.tcl
===================================================================
--- branches/release_2_3/base/tests/test/trace/test.tcl 2014-04-05 21:20:48 UTC (rev 118609)
+++ branches/release_2_3/base/tests/test/trace/test.tcl 2014-04-05 21:36:58 UTC (rev 118610)
@@ -1,12 +1,15 @@
package require tcltest 2
-# need pextlib to drop privs
-package require Pextlib 1.0
-
namespace import tcltest::*
source [file dirname $argv0]/../library.tcl
+# need pextlib to drop privs
+set line [get_line $autoconf "macports_tcl_dir*"]
+set macports_tcl_dir [lindex [split $line " "] 1]
+source [file join $macports_tcl_dir macports1.0 macports_fastload.tcl]
+package require Pextlib 1.0
+
makeFile "" $output_file
makeDirectory $work_dir
set path [file dirname [file normalize $argv0]]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140405/a6962348/attachment.html>
More information about the macports-changes
mailing list