Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.208.mcz
==================== Summary ====================
Name: KernelTests-nice.208 Author: nice Time: 29 October 2011, 3:24:06.652 pm UUID: 98713787-6ba4-424d-b622-0c1f459ac49c Ancestors: KernelTests-nice.207
There might be a best inexact square root approximation than infinity to some LargePositiveInteger in the range (1<<54-1<<970 to: 1<<54-1<<1994)
=============== Diff against KernelTests-nice.207 ===============
Item was added: + ----- Method: IntegerTest>>testBigReceiverInexactSqrt (in category 'tests - mathematical functions') ----- + testBigReceiverInexactSqrt + " + IntegerTest new testBigReceiverInexactSqrt + " + + "Inexact 3rd root (not a whole cube number), so a Float must be answered. + However, receiver is too big for Float arithmethic." + | bigNum result | + bigNum := 100 factorial squared + 1. "Add 1 so it is not a whole square" + self assert: bigNum asFloat isInfinite. "Otherwise, we chose a bad sample" + result := bigNum sqrt. + self assert: result class == Float. + self deny: result isInfinite. + self assert: result = 100 factorial asFloat. "No other float is closer. See following lines" + self assert: (result successor asFraction squared - bigNum) abs >= (result asFraction squared - bigNum) abs. + self assert: (result predecessor asFraction squared - bigNum) abs >= (result asFraction squared - bigNum) abs.!
packages@lists.squeakfoundation.org