[Pkg] The Trunk: CollectionsTests-nice.335.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.335.mcz

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

Name: CollectionsTests-nice.335
Author: nice
Time: 12 March 2020, 12:08:41.875856 pm
UUID: 7bd21d75-b53b-4dc6-a18c-95b65e628d21
Ancestors: CollectionsTests-mt.334

Avoid write-streaming on read-only literal

=============== Diff against CollectionsTests-mt.334 ===============

Item was changed:
  ----- Method: WriteStreamTest>>testCr (in category 'tests - character writing') -----
  testCr
  	"self debug: #testCr"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream cr.
  	self assert: stream last = Character cr.!

Item was changed:
  ----- Method: WriteStreamTest>>testCrLf (in category 'tests - character writing') -----
  testCrLf
  	"self debug: #testCrLf"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream crlf.
  	self assert: (stream contents last: 2) = String crlf.!

Item was changed:
  ----- Method: WriteStreamTest>>testCrTab (in category 'tests - character writing') -----
  testCrTab
  	"self debug: #testCrTab"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream crtab.
  	self assert: (stream contents last: 2) = (String with: Character cr with: Character tab)!

Item was changed:
  ----- Method: WriteStreamTest>>testCrTabs (in category 'tests - character writing') -----
  testCrTabs
  	"self debug: #testCrTabs"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream crtab: 2.
  	self assert: (stream contents last: 3) = (String with: Character cr with: Character tab with: Character tab)!

Item was changed:
  ----- Method: WriteStreamTest>>testInstanciationUsingOn (in category 'tests - instance creation') -----
  testInstanciationUsingOn
  	"self debug: #testInstanciationUsingOn"
  	| stream |
+ 	stream := WriteStream on: #(1 2) copy.
- 	stream := WriteStream on: #(1 2).
  	stream nextPut: 3.
  	self assert: stream contents = #(3)!

Item was changed:
  ----- Method: WriteStreamTest>>testLf (in category 'tests - character writing') -----
  testLf
  	"self debug: #testLf"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream lf.
  	self assert: stream last = Character lf.!

Item was changed:
  ----- Method: WriteStreamTest>>testPosition (in category 'tests - positioning') -----
  testPosition
  	"self debug: #testPosition"
  	
  	| stream |
+ 	stream := WriteStream with: 'an elephant' copy.
- 	stream := WriteStream with: 'an elephant'.
  	stream position: 6.
  	self assert: stream contents = 'an ele'.
  
  	stream nextPutAll: 'vator'.
  	stream assert: stream contents = 'an elevator'!

Item was changed:
  ----- Method: WriteStreamTest>>testSize (in category 'tests - accessing') -----
  testSize
  	"self debug: #testSize"
  
  	| string streamEmpty streamFull |
  	string := 'a string'.
+ 	streamEmpty := WriteStream on: string copy.
+ 	streamFull := WriteStream with: string copy.
- 	streamEmpty := WriteStream on: string.
- 	streamFull := WriteStream with: 'a string'.
  	
  	self assert: streamEmpty size = 0.
  	self assert: streamFull size = 8.
  	
  	streamEmpty nextPut: $..
  	streamFull nextPut: $..
  	self assert: streamEmpty size = 1.
  	self assert: streamFull size = (string size + 1).!

Item was changed:
  ----- Method: WriteStreamTest>>testSpace (in category 'tests - character writing') -----
  testSpace
  	"self debug: #testSpace"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream space.
  	self assert: stream last = Character space.!

Item was changed:
  ----- Method: WriteStreamTest>>testSpaces (in category 'tests - character writing') -----
  testSpaces
  	"self debug: #testSpaces"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream space: 3.
  	self assert: (stream contents last: 3) = '   '!

Item was changed:
  ----- Method: WriteStreamTest>>testTab (in category 'tests - character writing') -----
  testTab
  	"self debug: #testTab"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream tab.
  	self assert: (stream contents last) = Character tab!

Item was changed:
  ----- Method: WriteStreamTest>>testTabs (in category 'tests - character writing') -----
  testTabs
  	"self debug: #testTabs"
  	
  	| stream |
+ 	stream := WriteStream on: 'stream' copy.
- 	stream := WriteStream on: 'stream'.
  	stream tab: 3.
  	self assert: (stream contents last: 3) = (String with: Character tab with: Character tab with: Character tab)!