diff options
| author | dkf <dkf@noemail.net> | 2004-11-02 15:46:34 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-11-02 15:46:34 (GMT) |
| commit | 74b5305bc430d9d1d4ba906f23762b1c36b071fa (patch) | |
| tree | 229d3ffdede731051c5cd946a2846daae9122c7e /tests/expr.test | |
| parent | 4719cff4baa852fe8f544a3715e2a8016bb1ed14 (diff) | |
| download | tcl-74b5305bc430d9d1d4ba906f23762b1c36b071fa.zip tcl-74b5305bc430d9d1d4ba906f23762b1c36b071fa.tar.gz tcl-74b5305bc430d9d1d4ba906f23762b1c36b071fa.tar.bz2 | |
Final fix for NaN != NaN bug. Thanks to Miguel Sofer for his improved patch.
[Bug 761471]
FossilOrigin-Name: 85f7b0c31c205e3490115de5e3d6fdc24a23fe3d
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/expr.test b/tests/expr.test index 9ba169a..6ba6732 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: expr.test,v 1.17.2.3 2004/09/19 15:02:36 dkf Exp $ +# RCS: @(#) $Id: expr.test,v 1.17.2.4 2004/11/02 15:46:35 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -805,6 +805,11 @@ test expr-22.7 {non-numeric floats} nonPortable { test expr-22.8 {non-numeric floats} nonPortable { list [catch {expr {1 / Inf}} msg] $msg } {1 {can't use infinite floating-point value as operand of "/"}} +# Make sure [Bug 761471] stays fixed. +test expr-22.9 {non-numeric floats: shared object equality and NaN} { + set x NaN + expr {$x == $x} +} 0 # Some compilers get this wrong; ensure that we work around it correctly test expr-24.1 {expr edge cases; shifting} {expr int(5)>>31} 0 |