|
@@ -776,14 +776,14 @@ selector: "assertSameContents:as:",
|
|
|
category: 'convenience',
|
|
|
fn: function (aCollection,anotherCollection){
|
|
|
var self=this;
|
|
|
-return smalltalk.withContext(function($ctx1) {
_st(self)._assert_equals_(_st(aCollection)._size(),_st(anotherCollection)._size());
|
|
|
+return smalltalk.withContext(function($ctx1) {
_st(self)._assert_(_st(_st(aCollection)._size()).__eq(_st(anotherCollection)._size()));
|
|
|
_st(aCollection)._do_((function(each){
|
|
|
-return smalltalk.withContext(function($ctx2) {
return _st(self)._assert_equals_(_st(aCollection)._occurrencesOf_(each),_st(anotherCollection)._occurrencesOf_(each));
|
|
|
+return smalltalk.withContext(function($ctx2) {
return _st(self)._assert_(_st(_st(aCollection)._occurrencesOf_(each)).__eq(_st(anotherCollection)._occurrencesOf_(each)));
|
|
|
}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
|
|
|
return self}, function($ctx1) {$ctx1.fill(self,"assertSameContents:as:",{aCollection:aCollection,anotherCollection:anotherCollection}, smalltalk.CollectionTest)})},
|
|
|
args: ["aCollection", "anotherCollection"],
|
|
|
-source: "assertSameContents: aCollection as: anotherCollection\x0a\x09self assert: aCollection size equals: anotherCollection size.\x0a\x09aCollection do: [ :each |\x0a\x09\x09self assert: (aCollection occurrencesOf: each) equals: (anotherCollection occurrencesOf: each) ]",
|
|
|
-messageSends: ["assert:equals:", "size", "do:", "occurrencesOf:"],
|
|
|
+source: "assertSameContents: aCollection as: anotherCollection\x0a\x09self assert: (aCollection size = anotherCollection size).\x0a\x09aCollection do: [ :each |\x0a\x09\x09self assert: ((aCollection occurrencesOf: each) = (anotherCollection occurrencesOf: each)) ]",
|
|
|
+messageSends: ["assert:", "=", "size", "do:", "occurrencesOf:"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
smalltalk.CollectionTest);
|