summaryrefslogtreecommitdiffstats
path: root/tests/mathop.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-09-09 16:51:15 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-09-09 16:51:15 (GMT)
commit661d0c07c6af17979d24832f834aae99e2377dac (patch)
treee92e8e7a5af578b7fbfc1a01740d384a0548acfa /tests/mathop.test
parent348e41c66d05f58ef37fb1307b90d49a09b112db (diff)
downloadtcl-661d0c07c6af17979d24832f834aae99e2377dac.zip
tcl-661d0c07c6af17979d24832f834aae99e2377dac.tar.gz
tcl-661d0c07c6af17979d24832f834aae99e2377dac.tar.bz2
* generic/tclCompCmds.c: Use the new INST_REVERSE instruction
* tests/mathop.test: to correct the compiled versions of math operator commands. [Bug 1724437]. * generic/tclCompile.c: New bytecode instruction INST_REVERSE to * generic/tclCompile.h: reverse the order of N items at the top of * generic/tclExecute.c: stack.
Diffstat (limited to 'tests/mathop.test')
-rw-r--r--tests/mathop.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/mathop.test b/tests/mathop.test
index c3888cb..8bbebd9 100644
--- a/tests/mathop.test
+++ b/tests/mathop.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: mathop.test,v 1.8 2007/05/18 18:39:31 dgp Exp $
+# RCS: @(#) $Id: mathop.test,v 1.9 2007/09/09 16:51:19 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -793,13 +793,14 @@ test mathop-20.7 { multi arg } {
} [list 3 -1 2 0 12 -6 60 0 10 -2 24 0]
test mathop-20.8 { multi arg, double } {
set res {}
- foreach vals {{1.0 2} {3.0 4 5} {4 3.0 2 1}} {
+ foreach vals {{1.0 2} {3.0 4 5} {4 3.0 2 1}
+ {1.0 -1.0 1e-18} {1.0 1.0 1e-18}} {
foreach op {+ - * /} {
lappend res [TestOp $op {*}$vals]
}
}
set res
-} [list 3.0 -1.0 2.0 0.5 12.0 -6.0 60.0 0.15 10.0 -2.0 24.0 [expr {2.0/3}]]
+} [list 3.0 -1.0 2.0 0.5 12.0 -6.0 60.0 0.15 10.0 -2.0 24.0 [expr {2.0/3}] 1e-18 2.0 -1e-18 [expr {-1.0/1e-18}] 2.0 -1e-18 1e-18 [expr {1.0/1e-18}]]
test mathop-21.1 { unary ops, bitnot } {
set res {}