The Trunk: CollectionsTests-pre.272.mcz

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-pre.272.mcz

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

Name: CollectionsTests-pre.272
Author: pre
Time: 21 December 2016, 2:44:36.561014 pm
UUID: 228aa803-a8b5-304c-b759-28f424a0191c
Ancestors: CollectionsTests-topa.271

Moves the failing test for WriteStreams to the expected failures as it does not test any previous implementation but is a feature request.
Also fixes a typo in the selector.

=============== Diff against CollectionsTests-topa.271 ===============

Item was added:
+ ----- Method: WriteStreamTest>>expectedFailures (in category 'tests - character writing') -----
+ expectedFailures
+
+ ^ #( testStreamAlwaysUseGivenCollection )!

Item was removed:
- ----- Method: WriteStreamTest>>testStreamAlwasyUseGivenCollection (in category 'tests - instance creation') -----
- testStreamAlwasyUseGivenCollection
- "self debug: #testStreamUseGivenCollection"
-
- "When a stream is created on a collection, it tries to keep using that collection instead of copying,
- even in the case of mutation of the original collection."
-
- |string stream|
-
- string := String withAll: 'xy'.
- stream := WriteStream on: string.
-
- stream nextPut: $a.
- stream nextPut: (Character codePoint: 269). "wide."
- self assert: string = (String with: $a with: (Character codePoint: 269)).!

Item was added:
+ ----- Method: WriteStreamTest>>testStreamAlwaysUseGivenCollection (in category 'tests - instance creation') -----
+ testStreamAlwaysUseGivenCollection
+ "self debug: #testStreamUseGivenCollection"
+
+ "When a stream is created on a collection, it tries to keep using that collection instead of copying,
+ even in the case of mutation of the original collection."
+
+ "To implement this WriteStream>>#nextPut: might want to use becomeForward for replacing the original
+ string with the new widestring object. Another option might be to throw an exception --pre"
+
+ |string stream|
+
+ string := String withAll: 'xy'.
+ stream := WriteStream on: string.
+
+ stream nextPut: $a.
+ stream nextPut: (Character codePoint: 269). "wide."
+ self assert: string = (String with: $a with: (Character codePoint: 269)).!