diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-06-18 08:24:15 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-06-18 08:24:15 (GMT) |
| commit | 077b55a8f11d01048c342c5b86ce0e635c576b48 (patch) | |
| tree | 6b1de76be7697dcb532ea49f5d623569caabf824 | |
| parent | 19d2e829a951d2987a02efb7560f6e5145c510ef (diff) | |
| download | tk-077b55a8f11d01048c342c5b86ce0e635c576b48.zip tk-077b55a8f11d01048c342c5b86ce0e635c576b48.tar.gz tk-077b55a8f11d01048c342c5b86ce0e635c576b48.tar.bz2 | |
Fix tcltest::makeFile so cursor.test can work properly...
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | tests/defs.tcl | 3 |
2 files changed, 8 insertions, 1 deletions
@@ -1,3 +1,9 @@ +2002-06-18 Donal K. Fellows <fellowsd@cs.man.ac.uk> + + * tests/defs.tcl (makeFile): Defined the return value of this + procedure to be the filename of the created file, as in the real + tcltest package... + 2002-06-17 Mo DeJong <mdejong@users.sourceforge.net> * generic/tkImage.c (Tk_ImageObjCmd, DeleteImage): Call 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} { |