Fix [0aa5e852dc]: Accept newline characters as value in Tk option files

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}