diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-09 08:19:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-09 08:19:04 (GMT) |
commit | fbf58737727bedb3610d58ebcd159c5f4e45a3fd (patch) | |
tree | 09b662fbac14647cd86199159eba359fb6f4267a /tests/expr.test | |
parent | 26cf410a37c3cc43ebe6013ea840805f93cc795c (diff) | |
download | tcl-fbf58737727bedb3610d58ebcd159c5f4e45a3fd.zip tcl-fbf58737727bedb3610d58ebcd159c5f4e45a3fd.tar.gz tcl-fbf58737727bedb3610d58ebcd159c5f4e45a3fd.tar.bz2 |
Don't bother unrelated error-messages
Diffstat (limited to 'tests/expr.test')
-rw-r--r-- | tests/expr.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/expr.test b/tests/expr.test index cf23520..190e963 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -798,7 +798,7 @@ test expr-20.3 {broken substitution of integer digits} { test expr-20.4 {proper double evaluation compilation, error case} { catch {unset a}; # make sure $a doesn't exist list [catch {expr 1?{$a}:0} msg] $msg -} {1 {cannot read "a": no such variable}} +} {1 {can't read "a": no such variable}} test expr-20.5 {proper double evaluation compilation, working case} { set a yellow expr 1?{$a}:0 @@ -868,7 +868,7 @@ test expr-22.1 {non-numeric floats} { } {1 {cannot use non-numeric floating-point value "NaN" as left operand of "+"}} test expr-22.2 {non-numeric floats} !ieeeFloatingPoint { list [catch {expr {Inf + 1}} msg] $msg -} {1 {cannot use infinite floating-point value as operand of "+"}} +} {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 @@ -876,7 +876,7 @@ test expr-22.3 {non-numeric floats} { test expr-22.4 {non-numeric floats} !ieeeFloatingPoint { set inf Inf list [catch {expr {$inf + 1}} msg] $msg -} {1 {cannot use infinite floating-point value as operand of "+"}} +} {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}} @@ -888,7 +888,7 @@ test expr-22.7 {non-numeric floats} { } {1 {cannot use non-numeric floating-point value "NaN" as right operand of "/"}} test expr-22.8 {non-numeric floats} !ieeeFloatingPoint { list [catch {expr {1 / Inf}} msg] $msg -} {1 {cannot use infinite floating-point value as operand of "/"}} +} {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 |