diff options
author | mdejong <mdejong> | 2003-03-07 21:40:26 (GMT) |
---|---|---|
committer | mdejong <mdejong> | 2003-03-07 21:40:26 (GMT) |
commit | 53285721f96ad476c4855909e999cfcdb0362e5c (patch) | |
tree | 13cccbd4910845c89ce7a2be3abad796fea9d0fe /tests | |
parent | 75dd0ea28ca081f8177d36a1eeda0bb91b3f4ab2 (diff) | |
download | tcl-53285721f96ad476c4855909e999cfcdb0362e5c.zip tcl-53285721f96ad476c4855909e999cfcdb0362e5c.tar.gz tcl-53285721f96ad476c4855909e999cfcdb0362e5c.tar.bz2 |
* 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.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/encoding.test | 10 |
1 files changed, 5 insertions, 5 deletions
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 |