summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-08-16 13:58:38 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-08-16 13:58:38 (GMT)
commit6355b34d7cd7a6c675e795ffed9a1932cc93b127 (patch)
treeb30fe3b74d48db7fde6f5182404cbc9c8429ef2e /tests
parent91c664c028599a03c15c0884b439aa6f829f965e (diff)
downloadtcl-6355b34d7cd7a6c675e795ffed9a1932cc93b127.zip
tcl-6355b34d7cd7a6c675e795ffed9a1932cc93b127.tar.gz
tcl-6355b34d7cd7a6c675e795ffed9a1932cc93b127.tar.bz2
Added test.
Diffstat (limited to 'tests')
-rw-r--r--tests/fCmd.test6
1 files changed, 5 insertions, 1 deletions
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]