Nicolas Cellier uploaded a new version of NetworkTests to project The Trunk:
http://source.squeak.org/trunk/NetworkTests-nice.11.mcz==================== Summary ====================
Name: NetworkTests-nice.11
Author: nice
Time: 27 December 2009, 4:15:25 am
UUID: 5713662a-efe2-4080-a15d-00b6048b123c
Ancestors: NetworkTests-ar.10
Cosmetic: move or remove a few temps inside closures
=============== Diff against NetworkTests-ar.10 ===============
Item was changed:
----- Method: UUIDPrimitivesTest>>testOrder (in category 'tests') -----
testOrder
+
- | uuid1 uuid2 |
100 timesRepeat:
+ [ | uuid1 uuid2 |
+ uuid1 := UUID new.
- [uuid1 := UUID new.
uuid2 := UUID new.
(uuid1 asString last: 12) = (uuid2 asString last: 12) ifTrue:
[self should: [uuid1 < uuid2].
self should: [uuid2 > uuid1].
self shouldnt: [uuid1 = uuid2]]]
!
Item was changed:
----- Method: UUIDPrimitivesTest>>testCreationNodeBased (in category 'tests') -----
testCreationNodeBased
+
- | uuid |
(UUID new asString last: 12) = (UUID new asString last: 12) ifFalse: [^self].
1000 timesRepeat:
+ [ | uuid |
+ uuid := UUID new.
- [uuid := UUID new.
self should: [((uuid at: 7) bitAnd: 16rF0) = 16r10].
self should: [((uuid at: 9) bitAnd: 16rC0) = 16r80]]
!
Item was changed:
----- Method: UUIDPrimitivesTest>>testDuplicationsKinda (in category 'tests') -----
testDuplicationsKinda
+ | check size |
- |check uuid size |
size := 5000.
check := Set new: size.
size timesRepeat:
+ [ | uuid |
+ uuid := UUID new.
- [uuid := UUID new.
self shouldnt: [check includes: uuid].
check add: uuid].
!