Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tests for pkg_mkIndex when input files do "namespace import". BUG 1327 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fcf8cd928ebff5813480a2ea2669e8aa |
| User & Date: | welch 1999-03-31 22:37:17.000 |
Context
|
1999-04-15
| ||
| 22:38 | * Merge 8.0.5 changes: - Mac changes for final release - Minor fixes to tools configure file... check-in: 08c27030dc user: stanton tags: trunk | |
|
1999-03-31
| ||
| 22:37 | Tests for pkg_mkIndex when input files do "namespace import". BUG 1327 check-in: fcf8cd928e user: welch tags: trunk | |
| 22:37 | Fixed pkg_mkIndex when input files do "namespace import". BUG 1327 check-in: dcd8e76bfe user: welch tags: trunk | |
Changes
Changes to tests/pkgMkIndex.test.
1 2 3 4 5 6 7 8 9 10 | # This file contains tests for the pkg_mkIndex command. # Note that the tests are limited to Tcl scripts only, there are no shared # libraries against which to test. # # Sourcing this file into Tcl runs the tests and generates output for # errors. No output means no errors were found. # # Copyright (c) 1998 by Scriptics Corporation. # All rights reserved. # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
# This file contains tests for the pkg_mkIndex command.
# Note that the tests are limited to Tcl scripts only, there are no shared
# libraries against which to test.
#
# Sourcing this file into Tcl runs the tests and generates output for
# errors. No output means no errors were found.
#
# Copyright (c) 1998 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @(#) $Id: pkgMkIndex.test,v 1.5 1999/03/31 22:37:17 welch Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
# Add the pkg1 directory to auto_path, so that its packages can be found.
# packages in pkg1 are used to test indexing of packages in pkg.
# Make sure that the path to pkg1 is absolute.
|
| ︙ | ︙ | |||
326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 |
} {0 {{Pkga:1.0 {tclPkgSetup {pkga.so load {pkga_eq pkga_quote}} {pkga.tcl source pkga_neq}}}}}
test pkgMkIndex-10.2 {package in DLL hidden by -load} {
pkgtest::runIndex -load Pkg* -- pkg pkga[info sharedlibextension]
} {0 {}}
} else {
puts "Skipping pkgMkIndex-10.1 (index of DLL and script)"
}
#
# cleanup
#
if {![info exist TESTS]} {
file delete [file join pkg pkgIndex.tcl]
namespace delete pkgtest
}
| > > > > > > > | 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 |
} {0 {{Pkga:1.0 {tclPkgSetup {pkga.so load {pkga_eq pkga_quote}} {pkga.tcl source pkga_neq}}}}}
test pkgMkIndex-10.2 {package in DLL hidden by -load} {
pkgtest::runIndex -load Pkg* -- pkg pkga[info sharedlibextension]
} {0 {}}
} else {
puts "Skipping pkgMkIndex-10.1 (index of DLL and script)"
}
# Tolerate "namespace import" at the global scope
test pkgMkIndex-11.1 {conflicting namespace imports} {
pkgtest::runIndex pkg import.tcl
} {0 {{fubar:1.0 {tclPkgSetup {import.tcl source ::fubar::foo}}}}}
#
# cleanup
#
if {![info exist TESTS]} {
file delete [file join pkg pkgIndex.tcl]
namespace delete pkgtest
}
|