The Inbox: CollectionsTests-ct.323.mcz

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.!