David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.175.mcz
==================== Summary ====================
Name: KernelTests-dtl.175 Author: dtl Time: 27 February 2011, 9:48:28.704 pm UUID: 8b527a84-abff-42c1-96d6-845975beff75 Ancestors: KernelTests-ul.174
Add test to document Float>>printPaddedWith:To: bug reported on http://lists.gforge.inria.fr/pipermail/pharo-users/2011-February/001569.html.
=============== Diff against KernelTests-ul.174 ===============
Item was added: + ----- Method: FloatTest>>testPrintPaddedWithTo (in category 'printing') ----- + testPrintPaddedWithTo + "This bug was reported in http://lists.gforge.inria.fr/pipermail/pharo-users/2011-February/001569.html. + The problem was caused by treating the format specifier as a number rather than + as a string, such the the number may be a Float subject to floating point rounding + errors. The solution to treat the format specifier as a string, and extract the integer + fields before and after the decimal point in the string." + + self assert: [(1.0 printPaddedWith: $0 to: 2.2) = '01.00']. + self assert: [(1.0 printPaddedWith: $X to: 2.2) = 'X1.0X']. + self assert: [(1.0 printPaddedWith: $0 to: 2) = '01.0']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2) = '12345.6789']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2.2) = '12345.6789']. + self assert: [(12.34 printPaddedWith: $0 to: 2.2) = '12.34']. + self assert: [(12345.6789 printPaddedWith: $0 to: 2.2) = '12345.6789']. + self assert: [(123.456 printPaddedWith: $X to: 4.4) = 'X123.456X']. + self assert: [(1.0 printPaddedWith: $0 to: 2.1) = '01.0']. + self assert: [(1.0 printPaddedWith: $0 to: 2.2) = '01.00']. + self assert: [(1.0 printPaddedWith: $0 to: 2.3) = '01.000']. "previously failed due to float usage" + self assert: [(1.0 printPaddedWith: $0 to: 2.4) = '01.0000']. "previously failed due to float usage" + self assert: [(1.0 printPaddedWith: $0 to: 2.5) = '01.00000'] + + !
squeak-dev@lists.squeakfoundation.org