#2997 safe.test failures

[WildCard]

Tk: v8.5a2
OS: WinXPsp2
Built with makefile.vc using VC7.1

These all seem to be file pathname errors. Just needs
normalizing?

==== safe-8.5 safe source control on file FAILED
==== Contents of test case:

# This tested filename == *.tcl or tclIndex, but
that restriction
# was removed in 8.4a4 - hobbs
set i "a";
catch {safe::interpDelete $i}
safe::interpCreate $i;
set log {};
proc safe-test-log {str} {global log; lappend log
$str}
set prevlog [safe::setLogCmd];
safe::setLogCmd safe-test-log;
list [catch {$i eval {source [file join [info
lib] blah]}} msg] $msg $log [safe::setLogCmd
$prevlog; unset log] [safe::interpDelete $i] ;

---- Result was:
1 {no such file or directory} {{ERROR for slave a :
D:\src_tcl\win\..\library/blah:no such file or
directory}} {} {}
---- Result should have been (exact matching):
1 {no such file or directory} {{ERROR for slave a :
D:/src_tcl/win/../library/blah:no such file or
directory}} {} {}
==== safe-8.5 FAILED

==== safe-8.6 safe source control on file FAILED
==== Contents of test case:

set i "a";
catch {safe::interpDelete $i}
safe::interpCreate $i;
set log {};
proc safe-test-log {str} {global log; lappend log
$str}
set prevlog [safe::setLogCmd];
safe::setLogCmd safe-test-log;
list [catch {$i eval {source [file join [info
lib] blah.tcl]}} msg] $msg $log [safe::setLogCmd
$prevlog; unset log] [safe::interpDelete $i] ;

---- Result was:
1 {no such file or directory} {{ERROR for slave a :
D:\src_tcl\win\..\library/blah.tcl:no such file or
directory}} {} {}
---- Result should have been (exact matching):
1 {no such file or directory} {{ERROR for slave a :
D:/src_tcl/win/../library/blah.tcl:no such file or
directory}} {} {}
==== safe-8.6 FAILED

==== safe-8.7 safe source control on file FAILED
==== Contents of test case:

# This tested length of filename, but that
restriction
# was removed in 8.4a4 - hobbs
set i "a";
catch {safe::interpDelete $i}
safe::interpCreate $i;
set log {};
proc safe-test-log {str} {global log; lappend log
$str}
set prevlog [safe::setLogCmd];
safe::setLogCmd safe-test-log;
list [catch {$i eval {source [file join [info
lib] xxxxxxxxxxx.tcl]}} msg] $msg $log
[safe::setLogCmd $prevlog; unset log]
[safe::interpDelete $i] ;

---- Result was:
1 {no such file or directory} {{ERROR for slave a :
D:\src_tcl\win\..\library/xxxxxxxxxxx.tcl:no such
file or directory}} {} {}
---- Result should have been (exact matching):
1 {no such file or directory} {{ERROR for slave a :
D:/src_tcl/win/../library/xxxxxxxxxxx.tcl:no such
file or directory}} {} {}
==== safe-8.7 FAILED

[WildCard]

Logged In: YES
user_id=596509

This is failing as my build environment uses fully
qualified names for ROOT and BINROOT (these are set in
rules.vc normally as .. & . respectively).
These tests pass on a standard Tcl build.

[WildCard]

Logged In: YES
user_id=596509

Saw a solution to a similiar situation to this a couple of
months ago, finally got around to testing on my build
system. Basically, Tcl expects its library path to be
given to it in unix format (no normalization is done to
it). So although it can find the correct library when
given a win style path (\'s), the test fails because it
wants a unix path from [info lib]. Fixed my build system
to set unix style path to lib.