summaryrefslogtreecommitdiffstats
path: root/tests/defs.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-06-18 08:24:15 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-06-18 08:24:15 (GMT)
commit077b55a8f11d01048c342c5b86ce0e635c576b48 (patch)
tree6b1de76be7697dcb532ea49f5d623569caabf824 /tests/defs.tcl
parent19d2e829a951d2987a02efb7560f6e5145c510ef (diff)
downloadtk-077b55a8f11d01048c342c5b86ce0e635c576b48.zip
tk-077b55a8f11d01048c342c5b86ce0e635c576b48.tar.gz
tk-077b55a8f11d01048c342c5b86ce0e635c576b48.tar.bz2
Fix tcltest::makeFile so cursor.test can work properly...
Diffstat (limited to 'tests/defs.tcl')
-rw-r--r--tests/defs.tcl3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/defs.tcl b/tests/defs.tcl
index e16a136..1007465 100644
--- a/tests/defs.tcl
+++ b/tests/defs.tcl
@@ -11,7 +11,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: defs.tcl,v 1.9 2002/06/13 15:31:39 dgp Exp $
+# RCS: @(#) $Id: defs.tcl,v 1.10 2002/06/18 08:24:15 dkf Exp $
# Initialize wish shell
@@ -801,6 +801,7 @@ proc ::tcltest::makeFile {contents name {directory {}}} {
if {[lsearch -exact $::tcltest::filesMade $fullName] == -1} {
lappend ::tcltest::filesMade $fullName
}
+ return $fullName
}
proc ::tcltest::removeFile {name} {