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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fcf8cd928ebff5813480a2ea2669e8aa |
| User & Date: | welch 1999-03-31 22:37:17 |
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.
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
|
# # 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.4 1998/11/12 05:54:21 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. ................................................................................ } {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 } |
|
>
>
>
>
>
>
>
|
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
|
# # 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. ................................................................................ } {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 } |