RegressionTests__IntegerTest.st
changeset 1625 1aca49cee54d
parent 1562 99605886ba85
child 1629 ee4c4c3132fc
equal deleted inserted replaced
1624:8bb859233893 1625:1aca49cee54d
  3753     "
  3753     "
  3754      self basicNew testLiteralNumbers
  3754      self basicNew testLiteralNumbers
  3755     "
  3755     "
  3756 
  3756 
  3757     "Modified: / 4.6.1999 / 18:41:09 / cg"
  3757     "Modified: / 4.6.1999 / 18:41:09 / cg"
       
  3758 !
       
  3759 
       
  3760 testMiscMath
       
  3761     self assert:(2 raisedTo:2) == 4.
       
  3762     self assert:(2 raisedTo:2.0) = 4.0.
       
  3763     self assert:(2 raisedTo:100) = 1267650600228229401496703205376.
       
  3764     self assert:(((2 raisedTo:100) log:2) isAlmostEqualTo:100 nEpsilon:1).
       
  3765     self assert:(((2 raisedTo:100) integerLog2) == 100).
       
  3766 
       
  3767     self assert:(((10 raisedTo:100) integerLog10) == 100).
       
  3768     "/ currently, integerLog10 does not work with largeInts
       
  3769     "/ self assert:(((10 raisedTo:1000) integerLog10) == 1000).
       
  3770 
       
  3771     "
       
  3772      self basicNew testMiscMath
       
  3773     "
       
  3774 
       
  3775     "Created: / 02-07-2017 / 00:52:25 / cg"
       
  3776     "Modified (comment): / 02-07-2017 / 14:39:26 / cg"
  3758 !
  3777 !
  3759 
  3778 
  3760 testModulu
  3779 testModulu
  3761     |a b op|
  3780     |a b op|
  3762 
  3781