diff options
author | dkf <dkf@noemail.net> | 2012-02-20 11:55:56 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2012-02-20 11:55:56 (GMT) |
commit | 9253fa7cdc71af53f6b11cabe637f0de5815c51d (patch) | |
tree | 11d74b34ec646e5494c3647b1369a71ba3496dc2 /tests | |
parent | 26ac5f52fb328a7c51019cb780c205a4774d3989 (diff) | |
download | tcl-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.test | 8 |
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} |