>Number:         5066
>Category:       pkg
>Synopsis:       tcl package fails its self-test
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    gnats-admin (GNATS administrator)
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed Feb 25 04:35:00 1998
>Last-Modified:
>Originator:     Ignatios Souvatzis
>Organization:
computer science department, university of Bonn, Germany
>Release:        see below. Package source as of today.
>Environment:
	
System: NetBSD cosinus.cs.uni-bonn.de 1.3_ALPHA NetBSD 1.3_ALPHA (COSINUS) #1: Sat Jan 10 01:49:13 CET 1998 ignatios@cosinus.cs.uni-bonn.de:/usr/local/obj/kernel/COSINUS i386


>Description:
	When running make test for the (new) tcl package, it fails one test.
>How-To-Repeat:
	cd /usr/pkgsrc/lang/tcl*; make test
cd /usr/pkgsrc/lang/tcl80/work/tcl8.0/unix && make test
if test ! -f tclsh; then make tclsh; else true; fi
cd dltest; PATH=..:/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin:/usr/X11R6/bin:/usr/pkg/bin:/usr/local/bin:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/pkg/bin:/usr/local/bin:/usr/sbin:/sbin TCL_LIBRARY=../../library make
cc  tclTestInit.o tclTest.o tclTestObj.o tclUnixTest.o -L/usr/local/pkgsrc/lang/tcl80/work/tcl8.0/unix -ltcl80 -lm -lc  -o tcltest
LD_LIBRARY_PATH=`pwd`:; export LD_LIBRARY_PATH;  TCL_LIBRARY=./../library; export TCL_LIBRARY;  ( echo cd ./../tests\; source all ) | ./tcltest
append.test
assocd.test
async.test
basic.test
binary.test
case.test
clock.test
cmdAH.test
cmdIL.test
cmdInfo.test
compile.test
concat.test
dcall.test
dstring.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test


==== fCmd-6.30 CopyRenameOneFile: TclpRemoveDirectory failed	--- (unixOnly) ---
==== Contents of test case:

    cleanup
    file mkdir foo/bar
    file attr foo -perm 040555
    set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
    set a1 {1 {can't unlink "foo/bar": permission denied}}
    set result [expr {$msg == $a1}]
    catch {file delete /tmp/bar}
    catch {file attr foo -perm 040777}
    catch {file delete -force foo}
    set result

==== Result was:
0
---- Result should have been:
1
---- fCmd-6.30 FAILED
fileName.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
httpold.test
Running http 1.0 tests in slave interp
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
interp.test
io.test
ioCmd.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lreplace.test
lsearch.test
macFCmd.test
misc.test
namespace-old.test
namespace.test
obj.test
opt.test
osa.test
skipping: Mac only tests...
parse.test
pid.test
pkg.test
proc-old.test
proc.test
pwd.test
regexp.test
registry.test
rename.test
resource.test
safe.test
scan.test
set-old.test
set.test
socket.test
source.test
split.test
string.test
stringObj.test
subst.test
switch.test
timer.test
trace.test
unixFCmd.test


==== unixFCmd-1.7 TclpRenameFile: EXDEV
==== Contents of test case:

    cleanup
    file mkdir foo/bar
    file attr foo -perm 040555
    set msg [list [catch {file rename foo/bar /tmp} msg] $msg]
    set a1 {1 {can't unlink "foo/bar": permission denied}}
    set result [expr {$msg == $a1}]
    catch {file delete /tmp/bar}
    catch {file attr foo -perm 040777}
    catch {file delete -force foo}
    set result

==== Result was:
0
---- Result should have been:
1
---- unixFCmd-1.7 FAILED
unixNotfy.test
unknown.test
uplevel.test
upvar.test
util.test
var.test
while-old.test
while.test
winFCmd.test
winNotify.test
winPipe.test
>Fix:
	not known.
>Audit-Trail:
>Unformatted: