diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-01-25 13:03:19 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-01-25 13:03:19 (GMT) |
| commit | 2eaeb737425a3b4a3ef929f1ede4181a30036a50 (patch) | |
| tree | f566eaa6f5be1e7b29886e1f6a06db094e1ba9ea /tests | |
| parent | e3c456752e6d98384049e88f7dc7a1d89a4da0a8 (diff) | |
| download | tcl-2eaeb737425a3b4a3ef929f1ede4181a30036a50.zip tcl-2eaeb737425a3b4a3ef929f1ede4181a30036a50.tar.gz tcl-2eaeb737425a3b4a3ef929f1ede4181a30036a50.tar.bz2 | |
more tests for INST_EXPON: base -1, big exponent (odd/even).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mathop.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/mathop.test b/tests/mathop.test index eff0852..9deba8f 100644 --- a/tests/mathop.test +++ b/tests/mathop.test @@ -1236,9 +1236,11 @@ test mathop-25.32 { exp operator } {expr {[set res [TestOp ** -$big -2.0]] > test mathop-25.33 { exp operator } {expr {[set res [TestOp ** -$big -3.0]] > -1 && $res < 0}} 1 test mathop-25.34 { exp operator } {TestOp ** $big -1e-30} 1.0 test mathop-25.35 { exp operator } {TestOp ** $big -1e+30} 0.0 -test mathop-25.36 { exp operator } {TestOp ** 0 $big} 0 -test mathop-25.37 { exp operator } {TestOp ** 1 $big} 1 -test mathop-25.38 { exp operator (small exponent power helper and its boundaries) } { +test mathop-25.36 { exp operator } {TestOp ** 0 $big} 0 +test mathop-25.37 { exp operator } {TestOp ** 1 $big} 1 +test mathop-25.38 { exp operator } {TestOp ** -1 $big} -1 +test mathop-25.39 { exp operator } {TestOp ** -1 [expr {$big+1}]} 1 +test mathop-25.40 { exp operator (small exponent power helper and its boundaries) } { set pwr 0 set res 1 while {[incr pwr] <= 17 && [set i [TestOp ** 15 $pwr]] == [set res [expr {$res * 15}]]} {} |