diff options
author | dgp <dgp@noemail.net> | 2002-07-06 18:19:45 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-07-06 18:19:45 (GMT) |
commit | 300177bf2607225f8519ccf46192aa1953b55be9 (patch) | |
tree | cabe6db4f59851bed1e66da9c06916876204275d /tests/pkgMkIndex.test | |
parent | 9518dff34623beafd56a058505ab30a1b844680a (diff) | |
download | tcl-300177bf2607225f8519ccf46192aa1953b55be9.zip tcl-300177bf2607225f8519ccf46192aa1953b55be9.tar.gz tcl-300177bf2607225f8519ccf46192aa1953b55be9.tar.bz2 |
* tests/pkgMkIndex.test: Constrained tests of [load] package indexing
to those platforms where the testing shared libraries have been built.
[Bug 578166].
FossilOrigin-Name: dc71ba145b492f9d52064aa55807f647486dfc21
Diffstat (limited to 'tests/pkgMkIndex.test')
-rw-r--r-- | tests/pkgMkIndex.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test index bf3ae18..104ef8b 100644 --- a/tests/pkgMkIndex.test +++ b/tests/pkgMkIndex.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: pkgMkIndex.test,v 1.22 2002/07/04 01:20:37 dgp Exp $ +# RCS: @(#) $Id: pkgMkIndex.test,v 1.23 2002/07/06 18:19:46 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -556,6 +556,7 @@ set x [file join [file dirname [info nameofexecutable]] dltest \ set dll "[file tail $x]Required" ::tcltest::testConstraint $dll [file exists $x] +if {[testConstraint $dll]} { makeFile { # This package provides Pkga, which is also provided by a DLL. package provide Pkga 1.0 @@ -564,6 +565,7 @@ proc pkga_neq { x } { } } [file join pkg pkga.tcl] file copy -force $x $fullPkgPath +} testConstraint exec [llength [info commands ::exec]] test pkgMkIndex-10.1 {package in DLL and script} [list exec $dll] { @@ -587,8 +589,10 @@ test pkgMkIndex-10.2 {package in DLL hidden by -load} [list exec $dll] { pkgtest::runCreatedIndex {0 {}} -lazy -load Pkg* -- $fullPkgPath pkga[info sharedlibextension] } {0 {}} +if {[testConstraint $dll]} { file delete -force [file join $fullPkgPath [file tail $x]] removeFile [file join pkg pkga.tcl] +} # Tolerate "namespace import" at the global scope |