浏览代码

Proper comma tests in Collection hierarchy.

Herby Vojčík 4 年之前
父节点
当前提交
5bb87d7b22
共有 2 个文件被更改,包括 220 次插入194 次删除
  1. 201 178
      lang/src/Kernel-Tests.js
  2. 19 16
      lang/src/Kernel-Tests.st

+ 201 - 178
lang/src/Kernel-Tests.js

@@ -3873,11 +3873,11 @@ selector: "testComma",
 protocol: "tests",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "testComma\x0a\x09self assert: self collection, self collectionClass new equals: self collection.\x0a\x09self assert: self collectionClass new, self collection equals: self collection.\x0a\x09self assert: self collectionClass new, self collectionClass new equals: self collectionClass new.\x0a\x09self assert: self collection, self sampleNewValueAsCollection equals: self collectionWithNewValue.\x0a\x09self assertSameContents: self sampleNewValueAsCollection, self collection as: self collectionWithNewValue",
+source: "testComma\x0a\x09self assert: self collection, self collectionClass new equals: self collection.\x0a\x09self assert: self collectionClass new, self collection equals: self collection.\x0a\x09self assert: self collectionClass new, self collectionClass new equals: self collectionClass new.\x0a\x09self assert: self collection, self sampleNewValueAsCollection equals: self collectionWithNewValue",
 referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
-messageSends: ["assert:equals:", ",", "collection", "new", "collectionClass", "sampleNewValueAsCollection", "collectionWithNewValue", "assertSameContents:as:"]
+messageSends: ["assert:equals:", ",", "collection", "new", "collectionClass", "sampleNewValueAsCollection", "collectionWithNewValue"]
 }, function ($methodClass){ return function (){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -3958,24 +3958,7 @@ return $core.withContext(function($ctx1) {
 ,$ctx1.sendIdx["assert:equals:"]=3
 //>>excludeEnd("ctx");
 ][0];
-$self._assert_equals_([$recv([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=5
-//>>excludeEnd("ctx");
-][0]).__comma([$self._sampleNewValueAsCollection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["sampleNewValueAsCollection"]=1
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx[","]=4
-//>>excludeEnd("ctx");
-][0],[$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=1
-//>>excludeEnd("ctx");
-][0]);
-$self._assertSameContents_as_($recv($self._sampleNewValueAsCollection()).__comma($self._collection()),$self._collectionWithNewValue());
+$self._assert_equals_($recv($self._collection()).__comma($self._sampleNewValueAsCollection()),$self._collectionWithNewValue());
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"testComma",{})});
@@ -5668,85 +5651,6 @@ return self;
 }; }),
 $globals.AssociativeCollectionTest);
 
-$core.addMethod(
-$core.method({
-selector: "testComma",
-protocol: "tests",
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testComma\x0a\x09super testComma.\x0a\x09self assert: self collection, self collection equals: self collection.\x0a\x09self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.\x0a\x09self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["testComma", "assert:equals:", ",", "collection", "collectionWithNewValue"]
-}, function ($methodClass){ return function (){
-var self=this,$self=this;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-return $core.withContext(function($ctx1) {
-//>>excludeEnd("ctx");
-[(
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.supercall = true,
-//>>excludeEnd("ctx");
-($methodClass.superclass||$boot.nilAsClass).fn.prototype._testComma.call($self))
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.supercall = false
-//>>excludeEnd("ctx");
-][0];
-[$self._assert_equals_([$recv([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=1
-//>>excludeEnd("ctx");
-][0]).__comma([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=2
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx[","]=1
-//>>excludeEnd("ctx");
-][0],[$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=3
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["assert:equals:"]=1
-//>>excludeEnd("ctx");
-][0];
-[$self._assert_equals_([$recv([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=4
-//>>excludeEnd("ctx");
-][0]).__comma([$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=1
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx[","]=2
-//>>excludeEnd("ctx");
-][0],[$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=2
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["assert:equals:"]=2
-//>>excludeEnd("ctx");
-][0];
-$self._assert_equals_($recv([$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=3
-//>>excludeEnd("ctx");
-][0]).__comma($self._collection()),$self._collectionWithNewValue());
-return self;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"testComma",{})});
-//>>excludeEnd("ctx");
-}; }),
-$globals.AssociativeCollectionTest);
-
 $core.addMethod(
 $core.method({
 selector: "testFrom",
@@ -6095,6 +5999,93 @@ return self;
 }; }),
 $globals.AssociativeCollectionTest);
 
+$core.addMethod(
+$core.method({
+selector: "testUnorderedComma",
+protocol: "tests",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testUnorderedComma\x0a\x09self assert: self collection, self collection equals: self collection.\x0a\x09self assert: self sampleNewValueAsCollection, self collection equals: self collectionWithNewValue.\x0a\x09self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.\x0a\x09self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:equals:", ",", "collection", "sampleNewValueAsCollection", "collectionWithNewValue"]
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+[$self._assert_equals_([$recv([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=1
+//>>excludeEnd("ctx");
+][0]).__comma([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=2
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=1
+//>>excludeEnd("ctx");
+][0],[$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=3
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=1
+//>>excludeEnd("ctx");
+][0];
+[$self._assert_equals_([$recv($self._sampleNewValueAsCollection()).__comma([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=4
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=2
+//>>excludeEnd("ctx");
+][0],[$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=1
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=2
+//>>excludeEnd("ctx");
+][0];
+[$self._assert_equals_([$recv([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=5
+//>>excludeEnd("ctx");
+][0]).__comma([$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=2
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=3
+//>>excludeEnd("ctx");
+][0],[$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=3
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=3
+//>>excludeEnd("ctx");
+][0];
+$self._assert_equals_($recv([$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=4
+//>>excludeEnd("ctx");
+][0]).__comma($self._collection()),$self._collectionWithNewValue());
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"testUnorderedComma",{})});
+//>>excludeEnd("ctx");
+}; }),
+$globals.AssociativeCollectionTest);
+
 $core.addMethod(
 $core.method({
 selector: "testValues",
@@ -7435,6 +7426,30 @@ return self;
 }; }),
 $globals.SequenceableCollectionTest);
 
+$core.addMethod(
+$core.method({
+selector: "testOrderedComma",
+protocol: "tests",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testOrderedComma\x0a\x09self assertSameContents: self sampleNewValueAsCollection, self collection as: self collectionWithNewValue",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assertSameContents:as:", ",", "sampleNewValueAsCollection", "collection", "collectionWithNewValue"]
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+$self._assertSameContents_as_($recv($self._sampleNewValueAsCollection()).__comma($self._collection()),$self._collectionWithNewValue());
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"testOrderedComma",{})});
+//>>excludeEnd("ctx");
+}; }),
+$globals.SequenceableCollectionTest);
+
 $core.addMethod(
 $core.method({
 selector: "testSecond",
@@ -9692,85 +9707,6 @@ return self;
 }; }),
 $globals.SetTest);
 
-$core.addMethod(
-$core.method({
-selector: "testComma",
-protocol: "tests",
-//>>excludeStart("ide", pragmas.excludeIdeData);
-args: [],
-source: "testComma\x0a\x09super testComma.\x0a\x09self assert: self collection, self collection equals: self collection.\x0a\x09self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.\x0a\x09self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue",
-referencedClasses: [],
-//>>excludeEnd("ide");
-pragmas: [],
-messageSends: ["testComma", "assert:equals:", ",", "collection", "collectionWithNewValue"]
-}, function ($methodClass){ return function (){
-var self=this,$self=this;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-return $core.withContext(function($ctx1) {
-//>>excludeEnd("ctx");
-[(
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-$ctx1.supercall = true,
-//>>excludeEnd("ctx");
-($methodClass.superclass||$boot.nilAsClass).fn.prototype._testComma.call($self))
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.supercall = false
-//>>excludeEnd("ctx");
-][0];
-[$self._assert_equals_([$recv([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=1
-//>>excludeEnd("ctx");
-][0]).__comma([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=2
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx[","]=1
-//>>excludeEnd("ctx");
-][0],[$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=3
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["assert:equals:"]=1
-//>>excludeEnd("ctx");
-][0];
-[$self._assert_equals_([$recv([$self._collection()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collection"]=4
-//>>excludeEnd("ctx");
-][0]).__comma([$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=1
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx[","]=2
-//>>excludeEnd("ctx");
-][0],[$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=2
-//>>excludeEnd("ctx");
-][0])
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["assert:equals:"]=2
-//>>excludeEnd("ctx");
-][0];
-$self._assert_equals_($recv([$self._collectionWithNewValue()
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-,$ctx1.sendIdx["collectionWithNewValue"]=3
-//>>excludeEnd("ctx");
-][0]).__comma($self._collection()),$self._collectionWithNewValue());
-return self;
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
-}, function($ctx1) {$ctx1.fill(self,"testComma",{})});
-//>>excludeEnd("ctx");
-}; }),
-$globals.SetTest);
-
 $core.addMethod(
 $core.method({
 selector: "testComparing",
@@ -10154,6 +10090,93 @@ return self;
 }; }),
 $globals.SetTest);
 
+$core.addMethod(
+$core.method({
+selector: "testUnorderedComma",
+protocol: "tests",
+//>>excludeStart("ide", pragmas.excludeIdeData);
+args: [],
+source: "testUnorderedComma\x0a\x09self assert: self collection, self collection equals: self collection.\x0a\x09self assert: self sampleNewValueAsCollection, self collection equals: self collectionWithNewValue.\x0a\x09self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.\x0a\x09self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue",
+referencedClasses: [],
+//>>excludeEnd("ide");
+pragmas: [],
+messageSends: ["assert:equals:", ",", "collection", "sampleNewValueAsCollection", "collectionWithNewValue"]
+}, function ($methodClass){ return function (){
+var self=this,$self=this;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx1) {
+//>>excludeEnd("ctx");
+[$self._assert_equals_([$recv([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=1
+//>>excludeEnd("ctx");
+][0]).__comma([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=2
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=1
+//>>excludeEnd("ctx");
+][0],[$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=3
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=1
+//>>excludeEnd("ctx");
+][0];
+[$self._assert_equals_([$recv($self._sampleNewValueAsCollection()).__comma([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=4
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=2
+//>>excludeEnd("ctx");
+][0],[$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=1
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=2
+//>>excludeEnd("ctx");
+][0];
+[$self._assert_equals_([$recv([$self._collection()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collection"]=5
+//>>excludeEnd("ctx");
+][0]).__comma([$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=2
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx[","]=3
+//>>excludeEnd("ctx");
+][0],[$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=3
+//>>excludeEnd("ctx");
+][0])
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["assert:equals:"]=3
+//>>excludeEnd("ctx");
+][0];
+$self._assert_equals_($recv([$self._collectionWithNewValue()
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+,$ctx1.sendIdx["collectionWithNewValue"]=4
+//>>excludeEnd("ctx");
+][0]).__comma($self._collection()),$self._collectionWithNewValue());
+return self;
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx1) {$ctx1.fill(self,"testUnorderedComma",{})});
+//>>excludeEnd("ctx");
+}; }),
+$globals.SetTest);
+
 
 $core.addMethod(
 $core.method({

+ 19 - 16
lang/src/Kernel-Tests.st

@@ -796,8 +796,7 @@ testComma
 	self assert: self collection, self collectionClass new equals: self collection.
 	self assert: self collectionClass new, self collection equals: self collection.
 	self assert: self collectionClass new, self collectionClass new equals: self collectionClass new.
-	self assert: self collection, self sampleNewValueAsCollection equals: self collectionWithNewValue.
-	self assertSameContents: self sampleNewValueAsCollection, self collection as: self collectionWithNewValue
+	self assert: self collection, self sampleNewValueAsCollection equals: self collectionWithNewValue
 !
 
 testCopy
@@ -1002,13 +1001,6 @@ testAsHashedCollection
 self assert: ( self collectionClass new asHashedCollection isMemberOf: HashedCollection ).
 !
 
-testComma
-	super testComma.
-	self assert: self collection, self collection equals: self collection.
-	self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.
-	self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue
-!
-
 testFrom
 "Accept a collection of associations."
 | associations |
@@ -1070,6 +1062,13 @@ testRemoveKeyIfAbsent
 		equals: self collection
 !
 
+testUnorderedComma
+	self assert: self collection, self collection equals: self collection.
+	self assert: self sampleNewValueAsCollection, self collection equals: self collectionWithNewValue.
+	self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.
+	self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue
+!
+
 testValues
 	self assert:self collectionClass new values isEmpty.
 	self assertSameContents:self collection values as: self collectionValues.
@@ -1349,6 +1348,10 @@ testLastN
 	self should: [ self collection last: 33 ] raise: Error
 !
 
+testOrderedComma
+	self assertSameContents: self sampleNewValueAsCollection, self collection as: self collectionWithNewValue
+!
+
 testSecond
 	self assert: (self collection second) equals: (self collection at: 2)
 !
@@ -1797,13 +1800,6 @@ testCollect
 	self assert: (#(5 6 8) asSet collect: [ :x | x \\ 3 ]) equals: #(0 2) asSet
 !
 
-testComma
-	super testComma.
-	self assert: self collection, self collection equals: self collection.
-	self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.
-	self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue
-!
-
 testComparing
 	self assert: #(0 2) asSet equals: #(0 2) asSet.
 	self assert: #(2 0) asSet equals: #(0 2) asSet.
@@ -1864,6 +1860,13 @@ testUnicity
 	self assert: set size equals: 2.
 
 	self assert: set asArray equals: #(21 'hello')
+!
+
+testUnorderedComma
+	self assert: self collection, self collection equals: self collection.
+	self assert: self sampleNewValueAsCollection, self collection equals: self collectionWithNewValue.
+	self assert: self collection, self collectionWithNewValue equals: self collectionWithNewValue.
+	self assert: self collectionWithNewValue, self collection equals: self collectionWithNewValue
 ! !
 
 !SetTest class methodsFor: 'fixture'!