summaryrefslogtreecommitdiffstats
path: root/tests/expr.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-02-01 14:55:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-02-01 14:55:02 (GMT)
commit680d27740a871cd27464c07ed2afee0f4104dbd4 (patch)
tree894906755f09fc8f29d4759777fafb3f94fac8bd /tests/expr.test
parent4a6021fe4842ba393545d968beed09fa19745a22 (diff)
parent8259c261067c140fd2db07d72c8eb9883b949aa0 (diff)
downloadtcl-680d27740a871cd27464c07ed2afee0f4104dbd4.zip
tcl-680d27740a871cd27464c07ed2afee0f4104dbd4.tar.gz
tcl-680d27740a871cd27464c07ed2afee0f4104dbd4.tar.bz2
Fix [d0f7ba56f0e8f93b7efb5b09ebc30a824bdd577a|d0f7ba56f0]: INST_EQ first-argument NaN shortcut is too aggressive
Diffstat (limited to 'tests/expr.test')
-rw-r--r--tests/expr.test9
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