From 6355b34d7cd7a6c675e795ffed9a1932cc93b127 Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 16 Aug 2002 13:58:38 +0000 Subject: Added test. --- ChangeLog | 3 ++- tests/fCmd.test | 6 +++++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 993b139..b8e60b9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,9 +1,10 @@ 2002-08-16 Donal K. Fellows + * tests/fCmd.test: Added test to make sure that the cause of the + problem is detectable with an unpatched Tcl. * doc/ObjectType.3: Added note on the root cause of this problem to the documentation, since it is possible for user code to trigger this sort of behaviour too. - * generic/tclIOUtil.c (SetFsPathFromAny): Objects should only have their old representation deleted when we know that we are about to install a new one. This stops a weird TclX bug under Linux with diff --git a/tests/fCmd.test b/tests/fCmd.test index 11d1289..678428d 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fCmd.test,v 1.23 2002/08/08 10:41:22 hobbs Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.24 2002/08/16 13:58:39 dkf Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -2366,6 +2366,10 @@ test fCmd-28.18 {file link: glob -type d} {linkDirectory} { set res } [lsort [list abc.link abc.dir abc2.dir]] +test fCmd-29.1 {weird memory corruption fault} { + catch {set res [open [file join ~a_totally_bogus_user_id/foo bar]]} +} 1 + cd [temporaryDirectory] file delete -force abc.link cd [workingDirectory] -- cgit v0.12