#2077 safe tcl test suite failures

[Larry W. Virden]

After downloading the tcl cvs head snapshot from
activestate today (10/24 am EDT), I find the following
two errors which did not occur previously:

safe.test

==== safe-7.1 tests that everything works at high level
FAILED
==== Contents of test case:

set i [safe::interpCreate];
# no error shall occur:
# (because the default access_path shall include
1st level sub dirs
# so package require in a slave works like in the
master)
set v [interp eval $i {package require http 1}]
# no error shall occur:
interp eval $i {http_config};
safe::interpDelete $i
set v

---- Result was:
can't read "::tcl_platform(os)": no such element in array
---- Result should have been (exact matching):
1.0
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
==== safe-7.1 FAILED

==== safe-7.2 tests specific path and
interpFind/AddToAccessPath FAILED
==== Contents of test case:

set i [safe::interpCreate -nostat -nested 1
-accessPath [list [info library]
]];
# should not add anything (p0)
set token1 [safe::interpAddToAccessPath $i [info
library]]
# should add as p1
set token2 [safe::interpAddToAccessPath $i
"/dummy/unixlike/test/path"];
# an error shall occur (http is not anymore in the
secure 0-level
# provided deep path)
list $token1 $token2 [catch {interp eval $i
{package require http 1}} msg]
$msg [safe::interpConfigure $i] [safe::interpDelete $i]

---- Result was:
{$p(:0:)} {$p(:1:)} 1 {can't read "::tcl_platform(os)":
no such element in array
} {-accessPath {/vol/tclsrcsol/tcl84/tcl/library
/dummy/unixlike/test/path} -sta
tics 0 -nested 1 -deleteHook {}} {}
---- Result should have been (exact matching):
{$p(:0:)} {$p(:1:)} 1 {can't find package http 1}
{-accessPath {/vol/tclsrcsol/t
cl84/tcl/library /dummy/unixlike/test/path} -statics 0
-nested 1 -deleteHook {}}
{}
==== safe-7.2 FAILED

[Don Porter]

Logged In: YES
user_id=80530

Duplicate of 627660