diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/option.file1 | 1 | ||||
-rw-r--r-- | tests/option.test | 9 |
2 files changed, 7 insertions, 3 deletions
diff --git a/tests/option.file1 b/tests/option.file1 index e64b6cc..32b4a18 100644 --- a/tests/option.file1 +++ b/tests/option.file1 @@ -14,4 +14,5 @@ ple # More comments, this time delimited by hash-marks. # Comment-line with space. *x6: +*x9: \ \ \\\101\n # comment line as last line of file. diff --git a/tests/option.test b/tests/option.test index 66df70c..23866d7 100644 --- a/tests/option.test +++ b/tests/option.test @@ -384,15 +384,18 @@ test option-15.6 {database files} -body { option get . x6 color } -result {} test option-15.7 {database files} -body { + option read $option1 + option get . x9 color +} -result " \t\\A\n" +test option-15.8 {database files} -body { option read $option1 widget foo } -returnCodes error -result {wrong # args: should be "option readfile fileName ?priority?"} - -test option-15.8 {database files} -body { +test option-15.9 {database files} -body { option add *x3 burgundy catch {option read $option1 userDefault} option get . x3 color } -result burgundy -test option-15.9 {database files} -body { +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} |