diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-01 14:55:02 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-01 14:55:02 (GMT) |
commit | 5fdbd4a749d1133304d1abe2a3ed5ea494b1178b (patch) | |
tree | 894906755f09fc8f29d4759777fafb3f94fac8bd /tests | |
parent | 17cf9db2f7a0bae5eb6386ba4b443948f1b4b9a4 (diff) | |
parent | b3800e2fed1b7a8fd1358f938e2fd5b4ff642db1 (diff) | |
download | tcl-5fdbd4a749d1133304d1abe2a3ed5ea494b1178b.zip tcl-5fdbd4a749d1133304d1abe2a3ed5ea494b1178b.tar.gz tcl-5fdbd4a749d1133304d1abe2a3ed5ea494b1178b.tar.bz2 |
Fix [d0f7ba56f0e8f93b7efb5b09ebc30a824bdd577a|d0f7ba56f0]: INST_EQ first-argument NaN shortcut is too aggressive
Diffstat (limited to 'tests')
-rw-r--r-- | tests/expr.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/expr.test b/tests/expr.test index 4046411..8e083c5 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -910,6 +910,15 @@ test expr-22.9 {non-numeric floats: shared object equality and NaN} { set x NaN expr {$x == $x} } 0 +# Make sure [Bug d0f7ba56f0] stays fixed. +test expr-22.10 {non-numeric arguments: equality and NaN} { + set x NaN + expr {$x > "Gran"} +} 1 +test expr-22.11 {non-numeric arguments: equality and NaN} { + set x NaN + expr {"Gran" < $x} +} 1 # Tests for exponentiation handling test expr-23.1 {CompileExponentialExpr: just exponential expr} {expr 4**2} 16 |