diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-25 22:32:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-25 22:32:41 (GMT) |
commit | bd597e95d63490d6c9668a27f18d8c4e7e975c10 (patch) | |
tree | 16b5653a385b8259c573d8c1ee9ca6391a10bcf1 /tests/option.test | |
parent | 5ad0c4f5c60539e665a660b4b1b457a9e8d99169 (diff) | |
parent | 820c13e4bd18805cf590e0fa0e1627e7ecf92ec4 (diff) | |
download | tk-bd597e95d63490d6c9668a27f18d8c4e7e975c10.zip tk-bd597e95d63490d6c9668a27f18d8c4e7e975c10.tar.gz tk-bd597e95d63490d6c9668a27f18d8c4e7e975c10.tar.bz2 |
Fix [477949]: option readfile cannot use multibytes.
Implementation adopted from AndroWish, but added support for UTF-8 BOM and added test-case.
Diffstat (limited to 'tests/option.test')
-rw-r--r-- | tests/option.test | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/option.test b/tests/option.test index 23866d7..ea5b5d1 100644 --- a/tests/option.test +++ b/tests/option.test @@ -399,18 +399,20 @@ test option-15.10 {database files} -body { set option2 [file join [testsDirectory] option.file2] option read $option2 } -returnCodes error -result {missing colon on line 2} - +set option3 [file join [testsDirectory] option.file3] +option read $option3 +test option-15.11 {database files} {option get . {x 4} color} br\xf3wn test option-16.1 {ReadOptionFile} -body { - set option3 [makeFile {} option.file3] - set file [open $option3 w] + set option4 [makeFile {} option.file3] + set file [open $option4 w] fconfigure $file -translation crlf puts $file "*x7: true\n*x8: false" close $file - option read $option3 userDefault + option read $option4 userDefault list [option get . x7 color] [option get . x8 color] } -cleanup { - removeFile $option3 + removeFile $option4 } -result {true false} deleteWindows |