diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-11 22:39:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-11 22:39:28 (GMT) |
| commit | 1ad3c6846690c6d70fe611d3a6be84186ad4ab26 (patch) | |
| tree | 4db0875ecc9703ad519b37998b70b3980c02a6d7 /tests/unixInit.test | |
| parent | 0646d431b0dd93bb11665e2e53e277b7899557fa (diff) | |
| download | tcl-1ad3c6846690c6d70fe611d3a6be84186ad4ab26.zip tcl-1ad3c6846690c6d70fe611d3a6be84186ad4ab26.tar.gz tcl-1ad3c6846690c6d70fe611d3a6be84186ad4ab26.tar.bz2 | |
* doc/Encoding.3: Removed bogus claims about tcl_libPath.
* generic/tclInterp.c (Tcl_Init): Stopped setting the
tcl_libPath variable. [tclInit] can get all its directories
without it.
* tests/unixInit.test: Modified test code that made use of
tcl_libPath variable.
* unix/tclUnixInit.c: Stopped setting the tclDefaultLibrary variable,
execept on the Mac OS X platform with HAVE_CFBUNDLE. In that configuration
we should seek some way to make use of the TIP 59 facilities and
get rid of that usage of tclDefaultLibrary as well.
Diffstat (limited to 'tests/unixInit.test')
| -rw-r--r-- | tests/unixInit.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index a9b25fe..89e5d78 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixInit.test,v 1.38 2004/06/10 22:21:53 dgp Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.39 2004/06/11 22:39:29 dgp Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -95,7 +95,10 @@ test unixInit-1.2 {initialisation: standard channel type deduction} {unixOnly st proc getlibpath [list [list program [interpreter]]] { set f [open "|[list $program]" w+] fconfigure $f -buffering none - puts $f {puts $tcl_libPath; exit} + puts $f { + puts [list $::env(TCL_LIBRARY) [tcl::pkgconfig get scriptdir,runtime]] + exit + } set path [gets $f] close $f return $path |