[squeak-dev] The Trunk: CollectionsTests-ar.96.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Sep 17 03:22:36 UTC 2009


Andreas Raab uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ar.96.mcz

==================== Summary ====================

Name: CollectionsTests-ar.96
Author: ar
Time: 16 September 2009, 8:22:29 am
UUID: 6225f405-5a66-0c4f-b34c-fb461c16485f
Ancestors: CollectionsTests-nice.95, CollectionsTests-ul.94

Merging CollectionsTests-ul.94:

- added StringTest >> #testFindStringStartingAt

=============== Diff against CollectionsTests-nice.95 ===============

Item was added:
+ ----- Method: StringTest>>testFindStringStartingAt (in category 'tests - finding') -----
+ testFindStringStartingAt
+ 	"Run the tests with both String's and ByteString's method"
+ 
+ 	{
+ 		"text pattern startIndex expectedResult"
+ 		#('Smalltalk' 'al' 2 3).
+ 		{ (Character value: 12345) asString, 'foo'. 'foo'. 1. 2 }.
+ 		{ (Character value: 12345) asString, 'foo'. (Character value: 12345) asString, 'foo'. 1. 1 }.
+ 		{ 'foo', (Character value: 12345) asString. (Character value: 12345) asString. 1. 4 }.
+ 		#('ababab' 'ab' 2 3).
+ 		#('abc' 'a' 2 0) } do: [ :input |
+ 			#(
+ 				(yourself yourself)
+ 				"the (yourself asWideString) pair would sometimes result 0 
+ 				(like here: 'Smalltalk' findString: 'al' asWideString startingAt: 1)
+ 				if the text is a ByteString, because of the optimized version,
+ 				but normally ByteStrings never ''contain'' WideStrings"
+ 				(asWideString yourself)
+ 				(asWideString asWideString)) do: [ :modifiers |
+ 					| text pattern startIndex expectedResult result |
+ 					text := input first perform: modifiers first.
+ 					pattern := input second perform: modifiers second.
+ 					startIndex := input third.
+ 					expectedResult := input fourth.
+ 					self assert: (result := text findString: pattern startingAt: startIndex) = expectedResult ] ]!




More information about the Squeak-dev mailing list