Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ul.186.mcz

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

Name: CollectionsTests-ul.186
Author: ul
Time: 11 September 2011, 4:59:39.762 pm
UUID: be7f5795-efdf-464a-9568-72d99c95b76d
Ancestors: CollectionsTests-topa.185

- added tests for String's #findTokens: and #subStrings:

=============== Diff against CollectionsTests-topa.185 ===============

Item was added:
+ ----- Method: StringTest>>testFindTokens (in category 'tests - tokenizing') -----
+ testFindTokens
+ 
+ 	#("receiver (argument expectedResult argument expectedResult ...) ..."
+ 		'' ('' () $a () 'a' () 'ab' () 'aaa' ())
+ 		'a' ('' ('a') $a () 'a' () 'ab' () 'aaa' () $b ('a') 'b' ('a') 'bc' ('a'))
+ 		'aa' ('' ('aa') $a () 'a' () 'ab' () 'aaa' () $b ('aa') 'b' ('aa') 'bc' ('aa'))
+ 		'ab' ('' ('ab') $a ('b') 'a' ('b') 'ab' () 'aaa' ('b') $b ('a') 'b' ('a') 'bc' ('a'))
+ 		'ababa' ('' ('ababa') $a ('b' 'b') 'a' ('b' 'b') 'ab' () 'aaa' ('b' 'b') $b ('a' 'a' 'a') 'b' ('a' 'a' 'a') 'bc' ('a' 'a' 'a'))
+ 		'abbccba' ('' ('abbccba') $a ('bbccb') 'a' ('bbccb') 'ab' ('cc') 'aaa' ('bbccb') $b ('a' 'cc' 'a') 'b' ('a' 'cc' 'a') 'bc' ('a' 'a')))
+ 		pairsDo: [ :receiver :argumentsAndExpectedResults |
+ 			argumentsAndExpectedResults pairsDo: [ :argument :expectedResult |
+ 				self assert: expectedResult asOrderedCollection equals: (
+ 					receiver findTokens: argument) ] ]
+ !

Item was added:
+ ----- Method: StringTest>>testSubStrings (in category 'tests - converting') -----
+ testSubStrings
+ 
+ 	#("receiver (argument expectedResult argument expectedResult ...) ..."
+ 		'' ('' () ($a) () 'a' () 'ab' () 'aaa' ())
+ 		'a' ('' ('a') ($a) () 'a' () 'ab' () 'aaa' () ($b) ('a') 'b' ('a') 'bc' ('a'))
+ 		'aa' ('' ('aa') ($a) () 'a' () 'ab' () 'aaa' () ($b) ('aa') 'b' ('aa') 'bc' ('aa'))
+ 		'ab' ('' ('ab') ($a) ('b') 'a' ('b') 'ab' () 'aaa' ('b') ($b) ('a') 'b' ('a') 'bc' ('a'))
+ 		'ababa' ('' ('ababa') ($a) ('b' 'b') 'a' ('b' 'b') 'ab' () 'aaa' ('b' 'b') ($b) ('a' 'a' 'a') 'b' ('a' 'a' 'a') 'bc' ('a' 'a' 'a'))
+ 		'abbccba' ('' ('abbccba') ($a) ('bbccb') 'a' ('bbccb') 'ab' ('cc') 'aaa' ('bbccb') ($b) ('a' 'cc' 'a') 'b' ('a' 'cc' 'a') 'bc' ('a' 'a')))
+ 		pairsDo: [ :receiver :argumentsAndExpectedResults |
+ 			argumentsAndExpectedResults pairsDo: [ :argument :expectedResult |
+ 				self assert: expectedResult equals: (
+ 					receiver subStrings: argument) ] ]
+ !