Tcl Source Code

If name of the test directory $fullPkgPath contains 
a space, then six tests fail. 
The fault is in the test suite and not in the code
under test.  The attached patch fixes it.

Detailed output from the failed tests follows:

==== pkgMkIndex-2.2 simple package - use -direct FAILED
==== Contents of test case:

    pkgtest::runIndex -direct $fullPkgPath simple.tcl

---- Result was:
0 {{simple:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/simple.tcl}}}}
---- Result should have been (exact matching):
0 {{simple:1.0 {source C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/simple.tcl}}}
==== pkgMkIndex-2.2 FAILED


==== pkgMkIndex-2.3 simple package - direct loading is
default FAILED
==== Contents of test case:

    pkgtest::runIndex $fullPkgPath simple.tcl

---- Result was:
0 {{simple:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/simple.tcl}}}}
---- Result should have been (exact matching):
0 {{simple:1.0 {source C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/simple.tcl}}}
==== pkgMkIndex-2.3 FAILED


==== pkgMkIndex-4.2 split package - direct loading FAILED
==== Contents of test case:

    pkgtest::runIndex -direct $fullPkgPath pkg2_a.tcl
pkg2_b.tcl

---- Result was:
0 {{pkg2:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_a.tcl}
source {C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_b.tcl}}}}
---- Result should have been (exact matching):
0 {{pkg2:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_a.tcl
source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_b.tcl}}}
==== pkgMkIndex-4.2 FAILED


==== pkgMkIndex-6.2 pkg1 requires pkg3 - use -direct FAILED
==== Contents of test case:

    pkgtest::runIndex -direct $fullPkgPath pkg1.tcl
pkg3.tcl

---- Result was:
0 {{pkg1:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg1.tcl}}}
{pkg3:1.0 {source {C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg3.tcl}}}}
---- Result should have been (exact matching):
0 {{pkg1:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg1.tcl}}
{pkg3:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg3.tcl}}}
==== pkgMkIndex-6.2 FAILED


==== pkgMkIndex-7.2 pkg4 uses pkg3 - use -direct FAILED
==== Contents of test case:

    pkgtest::runIndex -direct $fullPkgPath pkg4.tcl
pkg3.tcl

---- Result was:
0 {{pkg3:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg3.tcl}}}
{pkg4:1.0 {source {C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg4.tcl}}}}
---- Result should have been (exact matching):
0 {{pkg3:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg3.tcl}}
{pkg4:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg4.tcl}}}
==== pkgMkIndex-7.2 FAILED


==== pkgMkIndex-8.2 pkg5 uses pkg2 - use -direct FAILED
==== Contents of test case:

    pkgtest::runIndex -direct $fullPkgPath pkg5.tcl
pkg2_a.tcl pkg2_b.tcl

---- Result was:
0 {{pkg2:1.0 {source {C:/Documents and
Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_a.tcl}
source {C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_b.tcl}}}
{pkg5:1.0 {source {C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg5.tcl}}}}
---- Result should have been (exact matching):
0 {{pkg2:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_a.tcl
source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg2_b.tcl}}
{pkg5:1.0 {source C:/Documents and Settings/kevin/My
Documents/SourceForge/tcl/tests/pkg/pkg5.tcl}}}
==== pkgMkIndex-8.2 FAILED

Logged In: YES 
user_id=80530

This got fixed by Sofer/Darley when they were working on
Tcl Bug 553320.

Logged In: NO 

I wonder how many of these tests also fail if the path 
contains 'Tcl-sensitive' characters like '[' or '{'

File Added - 22059: pkgMkIndex.test.diff