summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authormdejong <mdejong>2003-03-07 21:40:26 (GMT)
committermdejong <mdejong>2003-03-07 21:40:26 (GMT)
commit53285721f96ad476c4855909e999cfcdb0362e5c (patch)
tree13cccbd4910845c89ce7a2be3abad796fea9d0fe /tests/encoding.test
parent75dd0ea28ca081f8177d36a1eeda0bb91b3f4ab2 (diff)
downloadtcl-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/encoding.test')
-rw-r--r--tests/encoding.test10
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