The Trunk: CollectionsTests-ct.419.mcz

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ct.419.mcz

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

Name: CollectionsTests-ct.419
Author: ct
Time: 6 June 2026, 4:23:27.447629 pm
UUID: 2828e405-7781-4238-be0d-7fefefa1fcb6
Ancestors: CollectionsTests-dtl.418

Complements Collections-ct.1115 (tests escaping for findSelector with trailing symbols in parentheses).

=============== Diff against CollectionsTests-dtl.418 ===============

Item was changed:
  ----- Method: StringTest>>testFindSelector (in category 'tests - finding') -----
  testFindSelector
  
  	#(
  		#negated 'negated' "Simplest case."
  		#negated '#negated' "Ignore leading #"
  		#negated '   negated' "Ignore leading whitespace"
  
  		nil 'shouldnotexist42' "Do not intern new symbols."
  		nil '' "No empty symbols."
  
  		#copy 'self copy' "Ignore leading receiver."
  		#copyWithout: 'self copyWithout: 42' "Ignore leading receiver."
  		#negated 'self copy negated' "Choose last selector if several."
  	
  		#drawOn: 'drawOn:'
  		nil 'drawOn' "Do not add colons."
  		#drawOn: 'drawOn: aCanvas' "Ignore argument"
  		
  		#at:put: 'at: 42 put: nil' "Ignore arguments"
  		#at:put: 'at: #drawOn: put: 42' "Ignore colons in arguments."
  		#at:put: 'at:42 put:43' "Scarce whitepsace"
  		#at:put: 'at: ''key:'' put: nil' "Ignore : inside String literal"
  		#at:put: 'at: #(foo bar baz:) put:43' "handle literal array"
+ 		#at:put: 'at: (#foo) put:' "trailing symbols in parentheses (Dan's code)"
+ 		#at:put: 'at: {#foo} put:' "trailing symbols in brace arrays (Dan's code)"
  		#at:put: 'at: $( put:$: asInteger' "Ignore : in Character literal"
  		
  		#ifTrue: 'ifTrue: [self open]'
  		#ifTrue:ifFalse: 'ifTrue: [] ifFalse: [self close]'
+ 		#ifTrue:ifFalse: 'ifTrue: [#foo] ifFalse: [self close]' "trailing symbols in blocks (Dan's code)"
  		#ifNotEmpty: 'ifNotEmpty: [:all | all sum]'
  		
  		#+ '+'
  		#+ '1 +'
  		nil '+ 2'
  		nil '1 + 2'
  		
  	) pairsDo: [:selector :str |
  		self assert: selector equals: str findSelector].!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]