David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-dtl.375.mcz
==================== Summary ====================
Name: CollectionsTests-dtl.375 Author: dtl Time: 30 April 2022, 5:47:10.423283 pm UUID: 5a5a04ca-3618-427d-b61d-66da38ece296 Ancestors: CollectionsTests-ct.374
Test updates to complement Collections-eem.1008 Change beginsWith: and endsWith: to be true for the empty sequence, e.g. 'foo' beginsWith: '' is now true. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-April/220038.htm...
=============== Diff against CollectionsTests-ct.374 ===============
Item was changed: ----- Method: LinkedListTest>>testsBeginsWithEmpty (in category 'tests - begins ends with') ----- testsBeginsWithEmpty + self assert: (self nonEmpty beginsWith:(self empty)). - self deny: (self nonEmpty beginsWith:(self empty)). self deny: (self empty beginsWith:(self nonEmpty )). !
Item was changed: ----- Method: LinkedListTest>>testsEndsWithEmpty (in category 'tests - begins ends with') ----- testsEndsWithEmpty + self assert: (self nonEmpty endsWith: self empty). - self deny: (self nonEmpty endsWith: self empty). self deny: (self empty endsWith: self nonEmpty). !
Item was changed: ----- Method: SequenceableCollectionTest>>testBeginsWith (in category 'tests - testing') ----- testBeginsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants."
| la prefix oc | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 1; add: 2; add: 3.
self assert: (la beginsWith: #(1)). + self deny: (la beginsWith: #(2)). self assert: (la beginsWith: #(1 2)). + self deny: (la beginsWith: #(1 1)). + self deny: (la beginsWith: #(2 2)). self assert: (la beginsWith: #(1 2 3)). + self deny: (la beginsWith: #(1 2 2)). self assert: (la beginsWith: oc). + self assert: (la beginsWith: #()). + self assert: (la beginsWith: ''). + self assert: (la beginsWith: OrderedCollection new). - self deny: (la beginsWith: #()). - self deny: (la beginsWith: ''). - self deny: (la beginsWith: OrderedCollection new). self assert: (oc beginsWith: #(1 2)). prefix := OrderedCollection new. + self assert: (oc beginsWith: prefix). - self deny: (oc beginsWith: prefix). prefix add: 1. self assert: (oc beginsWith: prefix). prefix add: 2. self assert: (oc beginsWith: prefix). prefix add: 3. self assert: (oc beginsWith: prefix). prefix add: 4. self deny: (oc beginsWith: prefix).!
Item was changed: ----- Method: SequenceableCollectionTest>>testBeginsWithAnyOf (in category 'tests - 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 assert: (la beginsWithAnyOf: #(())). - self deny: (la beginsWithAnyOf: #(())). self deny: (la beginsWithAnyOf: #((42))). !
Item was changed: ----- Method: SequenceableCollectionTest>>testEndsWith (in category 'tests - testing') ----- testEndsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants."
| la oc suffix | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 4; add: 5; add: 6. self assert: (la endsWith: #(6)). + self deny: (la endsWith: #(5)). self assert: (la endsWith: #(5 6)). + self deny: (la endsWith: #(5 5)). + self deny: (la endsWith: #(6 6 )). self assert: (la endsWith: #(4 5 6)). + self deny: (la endsWith: #(5 5 6)). self assert: (la endsWith: oc). + self assert: (la endsWith: #()). + self assert: (la endsWith: ''). - self deny: (la endsWith: #()). - self deny: (la endsWith: ''). suffix := OrderedCollection new. + self assert: (oc endsWith: suffix). suffix add: 6. self assert: (oc endsWith: suffix). suffix addFirst: 5. self assert: (oc endsWith: suffix). suffix addFirst: 4. self assert: (oc endsWith: suffix). suffix addFirst: 3. self deny: (oc endsWith: suffix).!
Item was changed: ----- Method: SequenceableCollectionTest>>testEndsWithAnyOf (in category 'tests - 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 assert: (la endsWithAnyOf: #(())). - self deny: (la endsWithAnyOf: #(())). self deny: (la endsWithAnyOf: #((42))). !
Item was changed: ----- Method: StringTest>>testBeginsWith (in category 'tests - finding') ----- testBeginsWith
self assert: ('Elvis' beginsWith: 'Elv'). self assert: ('Elvis' beginsWith: 'Elvis'). self assert: ('Elvis' beginsWith: 'E'). self deny: ('Elvis' beginsWith: 'e'). self deny: ('Elvis' beginsWith: 'Elvis '). + self assert: ('' beginsWith: ''). + self assert: ('abc' beginsWith: '')! - self deny: ('' beginsWith: ''). - self deny: ('abc' beginsWith: '')!
Item was changed: ----- Method: StringTest>>testEndsWith (in category 'tests - finding') ----- testEndsWith
self assert: ('Elvis' endsWith: 'vis'). self assert: ('Elvis' endsWith: 'Elvis'). self assert: ('Elvis' endsWith: 's'). self deny: ('Elvis' endsWith: 'S'). self deny: ('Elvis' endsWith: ' Elvis'). + self assert: ('' endsWith: ''). + self assert: ('abc' endsWith: '')! - self deny: ('' endsWith: ''). - self deny: ('abc' endsWith: '')!
Item was changed: ----- Method: WideStringTest>>testBeginsWith (in category 'tests - beginsWith') ----- testBeginsWith "from johnmci at http://bugs.squeak.org/view.php?id=5331" | w1 w2 | self assert: ('abc' beginsWith: 'ab'). self assert: ('abc' beginsWith: 'ab' asWideString). self assert: ('abc' asWideString beginsWith: 'ab'). self assert: ('abc' beginsWith: 'aX') not . self assert: ('abc' beginsWith: 'AB') not. self assert: ('abc' beginsWith: 'AB' asWideString) not . self assert: ('ABC' asWideString beginsWith: 'ab') not. + self assert: ('' beginsWith: '' asWideString). + self assert: ('abc' beginsWith: '' asWideString).
w1 := WideString with: (Unicode value: 402) with: $a with: (Unicode value: 400) with: $b. w2 := WideString with: (Unicode value: 402). w1 beginsWith: w2. + self assert: (w1 beginsWith: '' asWideString). + self assert: (w1 beginsWith: ''). + self assert: ('' asWideString beginsWith: '' asWideString). + self assert: ('' asWideString beginsWith: ''). !