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 | 3041f3f9a1d8a242105ffe99eebae201a7079549 (patch) | |
tree | ca5b53d4a09396ccb6458f4999e411a421a36961 /tests | |
parent | 886a7575564f8e4e164cb67dff4554778650868e (diff) | |
parent | 640e5762bc7e0aa585f1135dde28e2fa9434e79e (diff) | |
download | tcl-3041f3f9a1d8a242105ffe99eebae201a7079549.zip tcl-3041f3f9a1d8a242105ffe99eebae201a7079549.tar.gz tcl-3041f3f9a1d8a242105ffe99eebae201a7079549.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')
-rw-r--r-- | tests/parse.test | 3 | ||||
-rw-r--r-- | tests/parseExpr.test | 9 |
2 files changed, 12 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 diff --git a/tests/parseExpr.test b/tests/parseExpr.test index c1c489b..c3b0d71 100644 --- a/tests/parseExpr.test +++ b/tests/parseExpr.test @@ -1051,6 +1051,15 @@ test parseExpr-22.18 {Bug 3401704} -constraints testexprparser -body { testexprparser 0b02 -1 } -returnCodes error -match glob -result {*invalid binary number*} +test parseExpr-22.19 {Bug d2ffcca163} -constraints testexprparser -body { + testexprparser \u0433 -1 +} -returnCodes error -match glob -result {*invalid character*} +test parseExpr-22.20 {Bug d2ffcca163} -constraints testexprparser -body { + testexprparser \u043f -1 +} -returnCodes error -match glob -result {*invalid character*} +test parseExpr-22.21 {Bug d2ffcca163} -constraints testexprparser -body { + testexprparser in\u0433(0) -1 +} -returnCodes error -match glob -result {missing operand*} # cleanup cleanupTests |