diff options
| -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} { |