#2209 make test safe-7.1 7.2 failure

obsolete: 8.4.1
closed-duplicate
Don Porter
5
2003-02-25
2003-02-25
Iain Morrison
No

solaris 8 [Sparc]
gcc 3.3.2
tcl 8.4.1

Reading specs from
/usr/local/lib/gcc-lib/sparc-sun-solaris2.8/3.2.2/specs
Configured with: ../gcc-3.2.2/configure
--with-as=/usr/ccs/bin/as --with-ld=/u
Thread model: posix
gcc version 3.2.2

On running make test [as non-root user]

get

==== 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
{/usr/local/src/tcl_tk/tcl8.4.1/library
/dummy/unixlike/test/path} -statics 0 -nested 1
-deleteHook {}} {}
---- Result should have been (exact matching):
{$p(:0:)} {$p(:1:)} 1 {can't find package http 1}
{-accessPath {/usr/local/src/tcl_tk/tcl8.4.1/library
/dummy/unixlike/test/path} -statics 0 -nested 1
-deleteHook {}} {}
==== safe-7.2 FAILED

but

make shell

% parray tcl_platform
tcl_platform(byteOrder) = bigEndian
tcl_platform(machine) = sun4u
tcl_platform(os) = SunOS
tcl_platform(osVersion) = 5.8
tcl_platform(platform) = unix
tcl_platform(user) = iain
tcl_platform(wordSize) = 4

Any suggestions about what I'm doing wrong?

iain.morrison@mrc-cbu.cam.ac.uk

Discussion

  • Don Porter
    Don Porter
    2003-02-25

    Logged In: YES
    user_id=80530

    This bug is fixed in current development
    for release Tcl 8.4.2.

    Duplicate report of 627660, among others.

     
  • Don Porter
    Don Porter
    2003-02-25

    • labels: 105687 --> 38. Init - Library - Autoload
    • assigned_to: mdejong --> dgp
    • status: open --> closed-duplicate