diff options
author | dgp <dgp@users.sourceforge.net> | 2014-12-04 22:10:57 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-12-04 22:10:57 (GMT) |
commit | bfb321eb38ad0ef45285f0637c865cf701949b90 (patch) | |
tree | ca5b53d4a09396ccb6458f4999e411a421a36961 /tests/parse.test | |
parent | 2f3edeea430639acf634ea4b914dbde65df4739c (diff) | |
parent | 5c1b9fefdfb50cee5cd7d053101a033b2b6bb0d3 (diff) | |
download | tcl-bfb321eb38ad0ef45285f0637c865cf701949b90.zip tcl-bfb321eb38ad0ef45285f0637c865cf701949b90.tar.gz tcl-bfb321eb38ad0ef45285f0637c865cf701949b90.tar.bz2 |
[d2ffcca163] Limit parsing results that are documented to accept only
ASCII chars to actually follow that constraint. This requires not trusting
isalnum(.) and isalpha(.) to deliver portable identical results.
Diffstat (limited to 'tests/parse.test')
-rw-r--r-- | tests/parse.test | 3 |
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 |