Make list to string conversion more Tcl compatible

If a list elements contains unmatch ] brackets, use
backslash quoting instead of braces. This is what Tcl does.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 2 insertions, 2 deletions

diff --git a/tests/scan.test b/tests/scan.test
index f936ee3..8bfcbe8 100644
--- a/tests/scan.test
+++ b/tests/scan.test
@@ -20,9 +20,9 @@ needs cmd scan
 test scan-1.1 {BuildCharSet, CharInSet} {
     list [scan foo {%[^o]} x] $x
 } {1 f}
-test scan-1.2 {BuildCharSet, CharInSet} jim {
+test scan-1.2 {BuildCharSet, CharInSet} {
     list [scan \]foo {%[]f]} x] $x
-} {1 {]f}}
+} {1 \]f}
 test scan-1.3 {BuildCharSet, CharInSet} {
     list [scan abc-def {%[a-c]} x] $x
 } {1 abc}