#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Mon, 03 Jul 2017 10:14:41 +0200
changeset 1625 1aca49cee54d
parent 1624 8bb859233893
child 1626 2416702a1097
#QUALITY by cg x
RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Sun Jul 02 00:51:21 2017 +0200
+++ b/RegressionTests__IntegerTest.st	Mon Jul 03 10:14:41 2017 +0200
@@ -3757,6 +3757,25 @@
     "Modified: / 4.6.1999 / 18:41:09 / cg"
 !
 
+testMiscMath
+    self assert:(2 raisedTo:2) == 4.
+    self assert:(2 raisedTo:2.0) = 4.0.
+    self assert:(2 raisedTo:100) = 1267650600228229401496703205376.
+    self assert:(((2 raisedTo:100) log:2) isAlmostEqualTo:100 nEpsilon:1).
+    self assert:(((2 raisedTo:100) integerLog2) == 100).
+
+    self assert:(((10 raisedTo:100) integerLog10) == 100).
+    "/ currently, integerLog10 does not work with largeInts
+    "/ self assert:(((10 raisedTo:1000) integerLog10) == 1000).
+
+    "
+     self basicNew testMiscMath
+    "
+
+    "Created: / 02-07-2017 / 00:52:25 / cg"
+    "Modified (comment): / 02-07-2017 / 14:39:26 / cg"
+!
+
 testModulu
     |a b op|