[124097] branches/gsoc14-interactive/base/tests/test/library.tcl

[shasha at macports.org]

Revision: 124097
          https://trac.macports.org/changeset/124097
Author:   shasha at macports.org
Date:     2014-08-18 14:24:47 -0700 (Mon, 18 Aug 2014)
Log Message:
-----------
added -N flag

Modified Paths:
--------------
    branches/gsoc14-interactive/base/tests/test/library.tcl

Modified: branches/gsoc14-interactive/base/tests/test/library.tcl
===================================================================
--- branches/gsoc14-interactive/base/tests/test/library.tcl	2014-08-18 21:23:06 UTC (rev 124096)
+++ branches/gsoc14-interactive/base/tests/test/library.tcl	2014-08-18 21:24:47 UTC (rev 124097)
@@ -1,31 +1,26 @@
-set autoconf [file dirname $argv0]/../../../Mk/macports.autoconf.mk
 eval ::tcltest::configure $::argv
 
 set output_file "output"
 set work_dir "work"
 
+# constraint for tests that should only run on Darwin
+::tcltest::testConstraint darwin [expr {"darwin" eq "darwin"}]
+
+# constraint indicating whether the platform supports trace mode
+::tcltest::testConstraint tracemode_support [expr {1 != 0}]
+
 # Set of procs used for testing.
 
-# Sets $bindir variable from macports.autoconf.mk
-# autogenerated file.
+# Sets $bindir variable from autoconf
 proc load_variables {pwd} {
-    global autoconf bindir datadir portsrc cpwd
+    global bindir datadir portsrc cpwd
 
-    if { ![file exists $autoconf] } {
-        puts "ERROR: $autoconf does not exist."
-        exit 1
-    }
-
     set cpwd [file dirname [file dirname $pwd]]
 
-    set line [get_line $autoconf "prefix*"]
-    set prefix [lrange [split $line " "] 1 1]
-
-    set line [get_line $autoconf "bindir*"]
-    set bin [lrange [split $line "/"] 1 1]
-
-    set bindir ${prefix}/${bin}
-    set datadir ${prefix}/share
+    set prefix "/opt/macports-test"
+    set exec_prefix "${prefix}"
+    set bindir "${exec_prefix}/bin"
+    set datadir "${prefix}/share"
     set portsrc ${cpwd}/test-macports.conf
 
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140818/2601fa54/attachment-0001.html>