summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 21:17:35 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-02-29 21:17:35 (GMT)
commit70ea61c893a776323211dbc1d3b5d1d10c7d745e (patch)
tree73adf39b2338a6a278e999cfa368b35c224c87d3 /tests
parent7695d3270788d56c1ba433909285dcab42414edb (diff)
parent725269055e427aba43ac90a8c1cc56645adeeefa (diff)
downloadtcl-70ea61c893a776323211dbc1d3b5d1d10c7d745e.zip
tcl-70ea61c893a776323211dbc1d3b5d1d10c7d745e.tar.gz
tcl-70ea61c893a776323211dbc1d3b5d1d10c7d745e.tar.bz2
[Bug 3466099] BOM in Unicode
Diffstat (limited to 'tests')
-rw-r--r--tests/source.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/source.test b/tests/source.test
index 3a1454c..1e5b732 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -118,6 +118,21 @@ test source-2.6 {source error conditions} -setup {
{couldn't read file "*_non_existent_": no such file or directory} \
{POSIX ENOENT {no such file or directory}}]
+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
+ set y old-y
+ source $sourcefile
+ return $y
+} -cleanup {
+ removeFile $sourcefile
+ encoding system $saveencoding
+} -result {new-y}
test source-3.1 {return in middle of source file} -setup {
set sourcefile [makeFile {