diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-31 18:26:18 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-31 18:26:18 (GMT) |
| commit | 54e5b3e00162f459d5095f75a2ce2fb614f1df88 (patch) | |
| tree | 16d2e88d2188ecfd24a881f77f5b4b05c933c260 /tests/expr.test | |
| parent | 64c7a18b2572c509dc7b21b0c726a736515482e3 (diff) | |
| download | tcl-bug_3401704.zip tcl-bug_3401704.tar.gz tcl-bug_3401704.tar.bz2 | |
Use better 'isalnum' predicate ; add test case.bug_3401704
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/expr.test b/tests/expr.test index 6679569..81f9b1c 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -907,6 +907,9 @@ test expr-22.9 {non-numeric floats: shared object equality and NaN} { set x NaN expr {$x == $x} } 0 +test expr-22.10 {bareword prefixed by a non-numeric} -body { + list [catch {expr {nancy}} msg] $msg +} -match glob -result {1 {invalid bareword "nancy"*}} # Tests for exponentiation handling test expr-23.1 {CompileExponentialExpr: just exponential expr} {expr 4**2} 16 |