[Tcl-bugs] [ tcl-Bugs-759196 ] problem with test fCmd-18.10

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

Bugs item #759196, was opened at 2003-06-23 05:48
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=759196&group_id=10894

Category: 34. tcltest Package
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Don Porter (dgp)
Summary: problem with test fCmd-18.10 

Initial Comment:

OS: Linux 2.2.21 smp

used tcl Version: tcl8.4.3

name of the file with the problem: fCmd.test

revision:   # RCS: @(#) $Id: fCmd.test,v 1.26.2.1
2003/04/14 15:45:54 vincentdarley Exp $

The test fCmd-18.10 fails allways on Linux 2.2.21

CFLAGS=-O  configure ...
make
make test:

fCmd.test:

==== fCmd-18.10 TclFileRenameCmd: rename dir on top of
a non-empty dir w/ -force FAILED
==== Contents of test case:

    catch {file delete -force -- tfa tfad}
    file mkdir tfa tfad/tfa/file
    set r1 [catch {file rename -force tfa tfad}]
    set result [expr $r1 && [file isdir tfa] && [file
isdir tfad/tfa/file]]
    file delete -force tfa tfad
    set result

---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-18.10 FAILED


but if I do it manualy in a "shell" it seams to work
like expected:

bash-2.04$ ./tclsh
% catch {file delete -force -- tfa tfad}
0
% file mkdir tfa tfad/tfa/file
% set r1 [catch {file rename -force tfa tfad}]
1
% set result [expr $r1 && [file isdir tfa] && [file
isdir tfad/tfa/file]]
1
% file delete -force tfa tfad
% set result
1
% 

All other tests excluding the stack.test (stack size
warning)
works fine.

if you have any further question 

my e-mail address is : 

gr...@ls...


Thangs a lot

Andreas Greve

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

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