diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-06-18 08:24:15 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-06-18 08:24:15 (GMT) |
| commit | 0438a7eeef1cf872498db9d000d5f1ee0d96cf88 (patch) | |
| tree | 6b1de76be7697dcb532ea49f5d623569caabf824 /tests | |
| parent | 48bd4bdbdfe3b866611ef7da20474577b45304de (diff) | |
| download | tk-0438a7eeef1cf872498db9d000d5f1ee0d96cf88.zip tk-0438a7eeef1cf872498db9d000d5f1ee0d96cf88.tar.gz tk-0438a7eeef1cf872498db9d000d5f1ee0d96cf88.tar.bz2 | |
Fix tcltest::makeFile so cursor.test can work properly...
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/defs.tcl | 3 |
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} { |