diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-20 11:55:56 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-20 11:55:56 (GMT) |
commit | 725269055e427aba43ac90a8c1cc56645adeeefa (patch) | |
tree | 11d74b34ec646e5494c3647b1369a71ba3496dc2 | |
parent | a09069115b1c5707f85d873526d0d7c9b2ace1fb (diff) | |
download | tcl-725269055e427aba43ac90a8c1cc56645adeeefa.zip tcl-725269055e427aba43ac90a8c1cc56645adeeefa.tar.gz tcl-725269055e427aba43ac90a8c1cc56645adeeefa.tar.bz2 |
Make test clearer to future maintainers.
-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} |