Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.134.mcz
==================== Summary ====================
Name: CollectionsTests-ar.134 Author: ar Time: 1 February 2010, 7:17:53.486 pm UUID: 4adad849-c3b2-044d-b825-2f77af92664a Ancestors: CollectionsTests-ul.133
Tests for beginsWithAnyOf: and endsWithAnyOf:.
=============== Diff against CollectionsTests-ul.133 ===============
Item was added: + ----- Method: SequenceableCollectionTest>>testBeginsWithAnyOf (in category 'testing - testing') ----- + testBeginsWithAnyOf + "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." + + | la oc | + la := #(1 2 3 4 5 6). + oc := OrderedCollection new. + oc add: 1; add: 2; add: 3. + + self assert: (la beginsWithAnyOf: #((17) (1) (42))). + self assert: (la beginsWithAnyOf: #((17) (1 2) (42))). + self assert: (la beginsWithAnyOf: #((17) (1 2 3) (42))). + self deny: (la beginsWithAnyOf: #()). + self deny: (la beginsWithAnyOf: #(())). + self deny: (la beginsWithAnyOf: #((42))). + !
Item was added: + ----- Method: SequenceableCollectionTest>>testEndsWithAnyOf (in category 'testing - testing') ----- + testEndsWithAnyOf + "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." + + | la oc | + la := #(6 5 4 3 2 1). + oc := OrderedCollection new. + oc add: 3; add: 2; add: 1. + + self assert: (la endsWithAnyOf: #((17) (1) (42))). + self assert: (la endsWithAnyOf: #((17) (2 1) (42))). + self assert: (la endsWithAnyOf: #((17) (3 2 1) (42))). + self deny: (la endsWithAnyOf: #()). + self deny: (la endsWithAnyOf: #(())). + self deny: (la endsWithAnyOf: #((42))). + !
packages@lists.squeakfoundation.org