[Pkg] The Trunk: KernelTests-cmm.182.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 13 15:53:47 UTC 2011
Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.182.mcz
==================== Summary ====================
Name: KernelTests-cmm.182
Author: cmm
Time: 13 April 2011, 10:53:28.766 am
UUID: 1f54cb32-49d2-4194-9eda-06c15ce6baab
Ancestors: KernelTests-cmm.181
- Use hand-chosen fixtures rather than a time-based test.
=============== Diff against KernelTests-cmm.181 ===============
Item was changed:
----- Method: IntegerTest>>testBitReversal (in category 'tests - bitLogic') -----
testBitReversal
+ { 0. 1. SmallInteger maxVal-1. SmallInteger maxVal. SmallInteger maxVal+1. (2 raisedTo: 64)-1091. (2 raisedTo: 64)-1090. (2 raisedTo: 64)-1 } do:
+ [ : fixture |
+ | printedThenReversed reversedThenPrinted |
- | 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