[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