Added test.

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  <fellowsd@cs.man.ac.uk>
 
+	* 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]