diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-12-06 18:05:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-12-06 18:05:25 (GMT) |
| commit | 1bd8d4fc6fdcdcd0ba535a3dc45b7670500acf83 (patch) | |
| tree | 0e86d1914a1f1ef38a8ca255d4ad86ed37c3231c /tests/mathop.test | |
| parent | 50620f98af568bb61c29bf2f7350cf455367813a (diff) | |
| download | tcl-1bd8d4fc6fdcdcd0ba535a3dc45b7670500acf83.zip tcl-1bd8d4fc6fdcdcd0ba535a3dc45b7670500acf83.tar.gz tcl-1bd8d4fc6fdcdcd0ba535a3dc45b7670500acf83.tar.bz2 | |
* generic/tclCompCmds.c: Revised and consolidated into utility
* tests/mathop.c: routines some of routines that compile
the new TIP 174 commands. This corrects some known bugs. More to come.
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 |