[Pkg] The Trunk: KernelTests-cmm.181.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 12 02:03:32 UTC 2011
Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.181.mcz
==================== Summary ====================
Name: KernelTests-cmm.181
Author: cmm
Time: 11 April 2011, 9:03:15.606 pm
UUID: c0ac8242-0aa5-4f3d-8e96-b27c2ebd7325
Ancestors: KernelTests-nice.180
Added test for Integer>>bitReverse:.
=============== Diff against KernelTests-nice.180 ===============
Item was added:
+ ----- Method: IntegerTest>>testBitReversal (in category 'tests - bitLogic') -----
+ testBitReversal
+ | started expir fixture |
+ started := Time millisecondClockValue.
+ expir := ((self timeoutForTest-1)*1000) min: 5000.
+ fixture := 0.
+ [ (Time millisecondsSince: started) < expir ] whileTrue:
+ [ | printedThenReversed reversedThenPrinted |
+ printedThenReversed := (fixture printPaddedWith: $0 to: 64 base: 2) reversed.
+ reversedThenPrinted := (fixture bitReverse: 64) printPaddedWith: $0 to: 64 base: 2.
+ self assert: printedThenReversed = reversedThenPrinted.
+ fixture := fixture+1 ]!
More information about the Packages
mailing list