diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-05 12:28:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-05 12:28:01 (GMT) |
| commit | 71a48e59c2eb9d90233530198576fc445abfda42 (patch) | |
| tree | 94c5a2756c009d91338f8ee894ae0122dd4f35e9 /tests/parse.test | |
| parent | 423020bd63284883ef0e1343574dd256b7023ae0 (diff) | |
| parent | 3041f3f9a1d8a242105ffe99eebae201a7079549 (diff) | |
| download | tcl-71a48e59c2eb9d90233530198576fc445abfda42.zip tcl-71a48e59c2eb9d90233530198576fc445abfda42.tar.gz tcl-71a48e59c2eb9d90233530198576fc445abfda42.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 5d8afeb..d73c725 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -663,6 +663,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 |