diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-11 10:05:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-11 10:05:55 (GMT) |
| commit | f9b06d175f3ce097921a88bd64bbcf6dba8ac78e (patch) | |
| tree | 9345a2f89657cf2a8c29be397c9cfb930f7f8fe3 /tests/option.test | |
| parent | 8972ee1d392301940fd0ecd2ee8975261a62664b (diff) | |
| download | tk-f9b06d175f3ce097921a88bd64bbcf6dba8ac78e.zip tk-f9b06d175f3ce097921a88bd64bbcf6dba8ac78e.tar.gz tk-f9b06d175f3ce097921a88bd64bbcf6dba8ac78e.tar.bz2 | |
Fix [0aa5e852dc]: Accept newline characters as value in Tk option files
Diffstat (limited to 'tests/option.test')
| -rw-r--r-- | tests/option.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/option.test b/tests/option.test index 49d2975..1bfcb7c 100644 --- a/tests/option.test +++ b/tests/option.test @@ -197,13 +197,14 @@ test option-15.3 {database files} appNameIsTktest {option get . x2 color} green test option-15.4 {database files} {option get . x3 color} purple test option-15.5 {database files} {option get . {x 4} color} brown test option-15.6 {database files} {option get . x6 color} {} -test option-15.7 {database files} { +test option-15.7 {database files} {option get . x9 color} " \t\\A\n" +test option-15.8 {database files} { list [catch {option read $option1 widget foo} msg] $msg } {1 {wrong # args: should be "option readfile fileName ?priority?"}} option add *x3 burgundy catch {option read $option1 userDefault} -test option-15.8 {database files} {option get . x3 color} burgundy -test option-15.9 {database files} { +test option-15.9 {database files} {option get . x3 color} burgundy +test option-15.10 {database files} { list [catch {option read $option2} msg] $msg } {1 {missing colon on line 2}} |