diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-22 10:04:16 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-22 10:04:16 (GMT) |
| commit | 27070d54f1091210791f5ec8bd0c2474b5531f6d (patch) | |
| tree | 62adfb7d97aee2eeba07efd96276ecdbc71c51fd /tests | |
| parent | 6a00bb0ff05f01579f3976bc1ea44902d455f9d7 (diff) | |
| download | tcl-27070d54f1091210791f5ec8bd0c2474b5531f6d.zip tcl-27070d54f1091210791f5ec8bd0c2474b5531f6d.tar.gz tcl-27070d54f1091210791f5ec8bd0c2474b5531f6d.tar.bz2 | |
Allowed parser to recognise 'Inf' as a floating-point number. [Bug 218000]
Also produce better error messages when this happens.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/expr.test | 30 |
1 files changed, 29 insertions, 1 deletions
diff --git a/tests/expr.test b/tests/expr.test index 4e0f18b..90ace83 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.15 2002/07/10 08:25:59 dkf Exp $ +# RCS: @(#) $Id: expr.test,v 1.16 2002/07/22 10:04:17 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -775,6 +775,34 @@ test expr-21.10 {non-numeric boolean literals} {expr !on } 0 test expr-21.11 {non-numeric boolean literals} {expr !no } 1 test expr-21.12 {non-numeric boolean literals} {expr !yes } 0 +# Test for non-numeric float handling +test expr-22.1 {non-numeric floats} { + list [catch {expr {NaN + 1}} msg] $msg +} {1 {domain error: argument not in valid range}} +test expr-22.2 {non-numeric floats} { + list [catch {expr {Inf + 1}} msg] $msg +} {1 {can't use infinite floating-point value as operand of "+"}} +test expr-22.3 {non-numeric floats} { + set nan NaN + list [catch {expr {$nan + 1}} msg] $msg +} {1 {domain error: argument not in valid range}} +test expr-22.4 {non-numeric floats} { + set inf Inf + list [catch {expr {$inf + 1}} msg] $msg +} {1 {can't use infinite floating-point value as operand of "+"}} +test expr-22.5 {non-numeric floats} { + list [catch {expr NaN} msg] $msg +} {1 {domain error: argument not in valid range}} +test expr-22.6 {non-numeric floats} { + list [catch {expr Inf} msg] $msg +} {1 {floating-point value too large to represent}} +test expr-22.7 {non-numeric floats} { + list [catch {expr {1 / NaN}} msg] $msg +} {1 {domain error: argument not in valid range}} +test expr-22.8 {non-numeric floats} knownBug { + list [catch {expr {1 / Inf}} msg] $msg +} {1 {can't use infinite floating-point value as operand of "/"}} + # cleanup if {[info exists a]} { unset a |