summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-11-25 21:24:06 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-11-25 21:24:06 (GMT)
commitd9465a5be23e98e24bdbbc57ffee7b9459a565f8 (patch)
tree2adc45c2f7b7ddaada73b165f929d598dba94c5b /tests
parent484de8b9879c4344a7f31bf0940aa2eaf943d30f (diff)
downloadtcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.zip
tcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.tar.gz
tcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.tar.bz2
One way to fix the parser of $-substitution accepting non-ASCII varnames.
Diffstat (limited to 'tests')
-rw-r--r--tests/parse.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/parse.test b/tests/parse.test
index d7de5ff..cd02386 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -656,6 +656,9 @@ test parse-12.24 {Tcl_ParseVarName procedure, missing close paren in array refer
test parse-12.25 {Tcl_ParseVarName procedure, nested array reference} testparser {
testparser {$x(a$y(b$z))} 0
} {- {$x(a$y(b$z))} 1 word {$x(a$y(b$z))} 8 variable {$x(a$y(b$z))} 7 text x 0 text a 0 variable {$y(b$z)} 4 text y 0 text b 0 variable {$z} 1 text z 0 {}}
+test parse-12.26 {Tcl_ParseVarName [d2ffcca163] non-ascii} testparser {
+ testparser "$\u0433" -1
+} "- {$\u0433} 1 word {$\u0433} 2 text {$} 0 text \u0433 0 {}"
test parse-13.1 {Tcl_ParseVar procedure} testparsevar {
set abc 24