diff options
Diffstat (limited to 'tests/mathop.test')
| -rw-r--r-- | tests/mathop.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/mathop.test b/tests/mathop.test index 9ad66f6..4f10b48 100644 --- a/tests/mathop.test +++ b/tests/mathop.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: mathop.test,v 1.1 2006/11/26 12:52:55 dkf Exp $ +# RCS: @(#) $Id: mathop.test,v 1.2 2006/12/06 18:05:27 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -57,7 +57,7 @@ namespace eval ::testmathop { list [catch { + [set x 0] [incr x] NaN [incr x] [error expected] [incr x] } msg] $msg $x - } -result {1 expected 2} -constraints knownBug + } -result {1 expected 2} set op + test mathop-1.19 {interpreted +} { $op } 0 test mathop-1.20 {interpreted +} { $op 1 } 1 @@ -132,7 +132,7 @@ namespace eval ::testmathop { list [catch { * [set x 0] [incr x] NaN [incr x] [error expected] [incr x] } msg] $msg $x - } -result {1 expected 2} -constraints knownBug + } -result {1 expected 2} set op * test mathop-2.19 {interpreted *} { $op } 1 test mathop-2.20 {interpreted *} { $op 2 } 2 |