summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <dkf@noemail.net>2012-02-20 11:55:56 (GMT)
committerdkf <dkf@noemail.net>2012-02-20 11:55:56 (GMT)
commit9253fa7cdc71af53f6b11cabe637f0de5815c51d (patch)
tree11d74b34ec646e5494c3647b1369a71ba3496dc2 /tests
parent26ac5f52fb328a7c51019cb780c205a4774d3989 (diff)
downloadtcl-9253fa7cdc71af53f6b11cabe637f0de5815c51d.zip
tcl-9253fa7cdc71af53f6b11cabe637f0de5815c51d.tar.gz
tcl-9253fa7cdc71af53f6b11cabe637f0de5815c51d.tar.bz2
Make test clearer to future maintainers.
FossilOrigin-Name: a1ab7b1a0cae2a31f724373c6be2fd44136bb4e1
Diffstat (limited to 'tests')
-rw-r--r--tests/source.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/source.test b/tests/source.test
index 5774a97..1e5b732 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -121,16 +121,16 @@ test source-2.6 {source error conditions} -setup {
test source-2.7 {utf-8 with BOM} -setup {
set sourcefile [makeFile {} source.file]
set saveencoding [encoding system]
+} -body {
encoding system utf-8
set out [open $sourcefile w]
puts $out "\ufffeset y new-y"
close $out
-} -body {
- set y old-y
+ set y old-y
source $sourcefile
- set y
+ return $y
} -cleanup {
- removeFile source.file
+ removeFile $sourcefile
encoding system $saveencoding
} -result {new-y}