diff options
Diffstat (limited to 'tests/option.test')
-rw-r--r-- | tests/option.test | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/tests/option.test b/tests/option.test index 66df70c..4fdb08a 100644 --- a/tests/option.test +++ b/tests/option.test @@ -58,7 +58,6 @@ test option-1.6 {basic option retrieval} -body { option get . z Color2 } -result {} - test option-2.1 {basic option retrieval} -body { option get .op1 x Color1 } -result green @@ -78,7 +77,6 @@ test option-2.6 {basic option retrieval} -body { option get .op1 z Color2 } -result {} - test option-3.1 {basic option retrieval} -body { option get .op1.op3 x Color1 } -result yellow @@ -98,7 +96,6 @@ test option-3.6 {basic option retrieval} -body { option get .op1.op3 z Color2 } -result {} - test option-4.1 {basic option retrieval} -body { option get .op1.op3.op6 x Color1 } -result blue @@ -118,7 +115,6 @@ test option-4.6 {basic option retrieval} -body { option get .op1.op3.op6 z Color2 } -result black - test option-5.1 {basic option retrieval} -body { option get .op1.op4 x Color1 } -result blue @@ -138,7 +134,6 @@ test option-5.6 {basic option retrieval} -body { option get .op1.op4 z Color2 } -result {} - test option-6.1 {basic option retrieval} -body { option get .op2 x Color1 } -result orange @@ -158,7 +153,6 @@ test option-6.6 {basic option retrieval} -body { option get .op2 z Color2 } -result {} - test option-7.1 {basic option retrieval} -body { option get .op2.op5 x Color1 } -result orange @@ -203,7 +197,6 @@ test option-8.6 {stack pushing/popping} -body { option get .op2.op5 z Color2 } -result purple - test option-9.1 {stack pushing/popping} -body { option get . x Color1 } -result blue @@ -223,7 +216,6 @@ test option-9.6 {stack pushing/popping} -body { option get . z Color2 } -result {} - test option-10.1 {stack pushing/popping} -body { option get .op1.op3.op6 x Color1 } -result blue @@ -243,7 +235,6 @@ test option-10.6 {stack pushing/popping} -body { option get .op1.op3.op6 z Color2 } -result black - test option-11.1 {stack pushing/popping} -body { option get .op1.op3 x Color1 } -result yellow @@ -263,7 +254,6 @@ test option-11.6 {stack pushing/popping} -body { option get .op1.op3 z Color2 } -result {} - test option-12.1 {stack pushing/popping} -body { option get .op1 x Color1 } -result green @@ -358,7 +348,6 @@ test option-14.12 {error conditions} -body { option get .gorp.gorp a A } -returnCodes error -result {bad window path name ".gorp.gorp"} - set option1 [file join [testsDirectory] option.file1] test option-15.1 {database files} -body { option read non-existent @@ -397,13 +386,12 @@ test option-15.9 {database files} -body { option read $option2 } -returnCodes error -result {missing colon on line 2} - test option-16.1 {ReadOptionFile} -body { set option3 [makeFile {} option.file3] set file [open $option3 w] - fconfigure $file -translation crlf - puts $file "*x7: true\n*x8: false" - close $file + chan configure $file -translation crlf + chan puts $file "*x7: true\n*x8: false" + chan close $file option read $option3 userDefault list [option get . x7 color] [option get . x8 color] } -cleanup { |