#2997 safe.test failures

obsolete: 8.5a2
closed-invalid
3
2006-06-23
2004-12-04
No

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

Discussion

  • Daniel South

    Daniel South - 2005-05-31
    • priority: 5 --> 3
     
  • Daniel South

    Daniel South - 2005-05-31

    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.

     
  • Daniel South

    Daniel South - 2006-06-23

    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.

     
  • Daniel South

    Daniel South - 2006-06-23
    • status: open --> closed-invalid
     

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks