[Tcl-bugs] [ tcl-Bugs-628032 ] safe tcl test suite failures

[<no...@so...>]

Bugs item #628032, was opened at 2002-10-24 10:09
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=628032&group_id=10894

Category: 32. Safe Base
Group: 8.4.1
>Status: Closed
>Resolution: Duplicate
Priority: 5
Submitted By: Larry W. Virden (lvirden)
>Assigned to: Don Porter (dgp)
Summary: safe tcl test suite failures

Initial Comment:
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


----------------------------------------------------------------------

>Comment By: Don Porter (dgp)
Date: 2002-10-24 10:59

Message:
Logged In: YES 
user_id=80530

Duplicate of 627660

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=628032&group_id=10894