diff options
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | tests/encoding.test | 10 |
2 files changed, 12 insertions, 5 deletions
@@ -1,3 +1,10 @@ +2003-03-07 Mo DeJong <mdejong@users.sourceforge.net> + + * tests/encoding.test: Name temp files *.tcltestout + instead of *.out so that when they are removed later, + we don't accidently toast any files named *.out that + the user has created in the build directory. + 2003-03-07 Donal K. Fellows <fellowsd@cs.man.ac.uk> * generic/tclCmdAH.c (Tcl_FileObjCmd): Fix the setting of a file's diff --git a/tests/encoding.test b/tests/encoding.test index 2ea4463..bb19128 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: encoding.test,v 1.16 2003/02/21 02:40:58 hobbs Exp $ +# RCS: @(#) $Id: encoding.test,v 1.17 2003/03/07 21:40:28 mdejong Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -520,16 +520,16 @@ foreach from {cp932 shiftjis euc-jp iso2022-jp} { cd [temporaryDirectory] set f [open $from.chars] fconfigure $f -encoding $from - set out [open $from.$to.out w] + set out [open $from.$to.tcltestout w] fconfigure $out -encoding $to puts -nonewline $out [read $f] close $out close $f - # then compare $to.chars <=> $from.to.out as binary. + # then compare $to.chars <=> $from.to.tcltestout as binary. set fa [open $to.chars] fconfigure $fa -encoding binary - set fb [open $from.$to.out] + set fb [open $from.$to.tcltestout] fconfigure $fb -encoding binary set diff [channel-diff $fa $fb] close $fa @@ -541,7 +541,7 @@ foreach from {cp932 shiftjis euc-jp iso2022-jp} { } } -eval [list file delete] [glob -directory [temporaryDirectory] *.chars *.out] +eval [list file delete] [glob -directory [temporaryDirectory] *.chars *.tcltestout] # ===> Cut here <=== # EscapeFreeProc, GetTableEncoding, unilen |