A new version of CollectionsTests was added to project The Inbox:
http://source.squeak.org/inbox/CollectionsTests-ct.323.mcz

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

Name: CollectionsTests-ct.323
Author: ct
Time: 13 October 2019, 10:35:34.941932 pm
UUID: 26ed3353-0694-8948-8657-f1ed838e43d3
Ancestors: CollectionsTests-pre.322

Tests Collections-ct.858 (#withFirstCharacterUpshifted) and increase readability of #testWithFirstCharacterDownshifted

=============== Diff against CollectionsTests-pre.322 ===============

Item was changed:
  ----- Method: StringTest>>testWithFirstCharacterDownshifted (in category 'tests - converting') -----
  testWithFirstCharacterDownshifted
  
+ 	| input downshifted empty |		
+ 	input := 'MElViN'.
+ 	downshifted := 'mElViN'.
- 	| uc lc empty |		
- 	uc := 'MElViN'.
- 	lc := 'mElViN'.
  	empty := ' '.
+ 	self assert: downshifted equals: input withFirstCharacterDownshifted.
+ 	self assert: downshifted equals: input withFirstCharacterDownshifted.
- 	self assert:  uc withFirstCharacterDownshifted = lc.
- 	self assert: lc withFirstCharacterDownshifted = lc.
  	"the string gets copied"
+ 	self deny: downshifted withFirstCharacterDownshifted == downshifted.
- 	self deny: lc withFirstCharacterDownshifted == lc.
  	self deny: empty withFirstCharacterDownshifted == empty.!

Item was added:
+ ----- Method: StringTest>>testWithFirstCharacterUpshifted (in category 'tests - converting') -----
+ testWithFirstCharacterUpshifted
+ 
+ 	| input downshifted empty |		
+ 	input := 'mElViN'.
+ 	downshifted := 'MElViN'.
+ 	empty := ' '.
+ 	self assert: downshifted equals: input withFirstCharacterUpshifted.
+ 	self assert: downshifted equals: input withFirstCharacterUpshifted.
+ 	"the string gets copied"
+ 	self deny: downshifted withFirstCharacterUpshifted == downshifted.
+ 	self deny: empty withFirstCharacterUpshifted == empty.!

Item was changed:
  ----- Method: SymbolTest>>testWithFirstCharacterDownshifted (in category 'tests') -----
  testWithFirstCharacterDownshifted
  
+ 	| input downshifted empty |		
+ 	input := #MElViN.
+ 	downshifted := #mElViN.
- 	| uc lc empty |		
- 	uc := #MElViN.
- 	lc := #mElViN.
  	empty := #' '.
+ 	self assert: downshifted equals: input withFirstCharacterDownshifted.
+ 	self assert: downshifted equals: downshifted withFirstCharacterDownshifted.!
- 	self assert:  uc withFirstCharacterDownshifted = lc.
- 	self assert: lc withFirstCharacterDownshifted = lc.
- 	
- !

Item was added:
+ ----- Method: SymbolTest>>testWithFirstCharacterUpshifted (in category 'tests') -----
+ testWithFirstCharacterUpshifted
+ 
+ 	| input upshifted |		
+ 	input := #mElViN.
+ 	upshifted := #MElViN.
+ 	self assert: upshifted equals: input withFirstCharacterUpshifted.
+ 	self assert: upshifted equals: upshifted withFirstCharacterUpshifted.!