diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2018-10-19 03:05:27 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2018-10-19 03:05:27 (GMT) |
| commit | f0e0adc0322734e17b059f3ca33f5cea96b1256f (patch) | |
| tree | 8de615872cc528964adf4aeb7ad7d86ff5065c73 /tests/option.test | |
| parent | 3de5159c2afaaabb81be76e11b3e2e70775ebeef (diff) | |
| download | tk-f0e0adc0322734e17b059f3ca33f5cea96b1256f.zip tk-f0e0adc0322734e17b059f3ca33f5cea96b1256f.tar.gz tk-f0e0adc0322734e17b059f3ca33f5cea96b1256f.tar.bz2 | |
Add test for ticket [766ef52f3].
Diffstat (limited to 'tests/option.test')
| -rw-r--r-- | tests/option.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/option.test b/tests/option.test index ea5b5d1..b00aff6 100644 --- a/tests/option.test +++ b/tests/option.test @@ -415,6 +415,22 @@ test option-16.1 {ReadOptionFile} -body { removeFile $option4 } -result {true false} +set opt162val {label { + foo bar +} +} +set opt162list [split $opt162val \n] + +test option-16.2 {ticket 766ef52f3} { + set option5 [makeFile {} option.file4] + set file [open $option5 w] + fconfigure $file -translation crlf + puts $file "*notok: $opt162list" + close $file + option read $option5 userDefault + option get . notok notok +} $opt162list + deleteWindows # cleanup |