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']
+
+ !
Locked
