blob: 9b28a5ec8159c318c283c571a6fe3bd552e7dd99 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
$NetBSD: patch-aj,v 1.2 2006/01/16 14:47:35 adam Exp $
--- tests/pkgMkIndex.test.orig 2003-07-24 08:23:39.000000000 +0000
+++ tests/pkgMkIndex.test
@@ -559,7 +559,7 @@ removeFile [file join pkg circ2.tcl]
removeFile [file join pkg circ3.tcl]
# Some tests require the existence of one of the DLLs in the dltest directory
-set x [file join [file dirname [info nameofexecutable]] dltest \
+set x [file join [file dirname [info nameofexecutable]] .. dltest .libs \
pkga[info sharedlibextension]]
set dll "[file tail $x]Required"
::tcltest::testConstraint $dll [file exists $x]
@@ -572,7 +572,7 @@ proc pkga_neq { x } {
return [expr {! [pkgq_eq $x]}]
}
} [file join pkg pkga.tcl]
-file copy -force $x $fullPkgPath
+eval file copy -force [glob "$x*"] $fullPkgPath
}
testConstraint exec [llength [info commands ::exec]]
@@ -598,7 +598,7 @@ test pkgMkIndex-10.2 {package in DLL hid
} {0 {}}
if {[testConstraint $dll]} {
-file delete -force [file join $fullPkgPath [file tail $x]]
+eval file delete -force [glob [file join $fullPkgPath [file tail "$x*"] ] ]
removeFile [file join pkg pkga.tcl]
}
|
