|
@@ -32,11 +32,11 @@ category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
var $1,$2;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var model;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (5)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (5)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
$1=smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]);
|
|
|
smalltalk.send($1,"_getBlock_",[(function(x){
|
|
|
return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_",[(2)]);
|
|
@@ -45,14 +45,14 @@ $2=smalltalk.send($1,"_putBlock_",[(function(x,y){
|
|
|
return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_put_",[(2),y]);
|
|
|
})]);
|
|
|
model=$2;
|
|
|
-smalltalk.send(bb,"_model_modify_",[model,(function(r){
|
|
|
+smalltalk.send(isolator,"_model_modify_",[model,(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(1), [(2), (5)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testNontrivialModelGetsAppropriateValueForModification\x0a| bb model result |\x0aresult := nil.\x0abb := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 5)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new\x0a\x09getBlock: [ :x | (x root at: 'foo') at: 2 ];\x0a\x09putBlock: [ :x :y | (x root at: 'foo') at: 2 put: y].\x0abb model: model modify: [:r|result := r].\x0aself assert: #(1 #(2 5)) equals: result\x0a",
|
|
|
+source: "testNontrivialModelGetsAppropriateValueForModification\x0a| isolator model result |\x0aresult := nil.\x0aisolator := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 5)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new\x0a\x09getBlock: [ :x | (x root at: 'foo') at: 2 ];\x0a\x09putBlock: [ :x :y | (x root at: 'foo') at: 2 put: y].\x0aisolator model: model modify: [:r|result := r].\x0aself assert: #(1 #(2 5)) equals: result\x0a",
|
|
|
messageSends: ["on:", "->", "getBlock:", "at:", "root", "new", "putBlock:", "at:put:", "model:modify:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator", "EavModel"]
|
|
|
}),
|
|
@@ -66,11 +66,11 @@ category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
var $1,$2;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var model;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (3)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (3)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
$1=smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]);
|
|
|
smalltalk.send($1,"_getBlock_",[(function(x){
|
|
|
return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_",[(2)]);
|
|
@@ -79,22 +79,22 @@ $2=smalltalk.send($1,"_putBlock_",[(function(x,y){
|
|
|
return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_put_",[(2),y]);
|
|
|
})]);
|
|
|
model=$2;
|
|
|
-smalltalk.send(bb,"_model_modify_",[model,(function(r){
|
|
|
+smalltalk.send(isolator,"_model_modify_",[model,(function(r){
|
|
|
return smalltalk.symbolFor("new");
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[model,(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[model,(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[smalltalk.symbolFor("new"),result]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", smalltalk.symbolFor("new"), "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])]),result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testNontrivialModelModifiesAppropriateValue\x0a| bb model result |\x0aresult := nil.\x0abb := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 3)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new\x0a\x09getBlock: [ :x | (x root at: 'foo') at: 2 ];\x0a\x09putBlock: [ :x :y | (x root at: 'foo') at: 2 put: y].\x0abb model: model modify: [:r|#new].\x0abb model: model read: [:r|result := r].\x0aself assert: #new equals: result.\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #{ 'foo' -> #('bar' #new 'baz'). 'moo' -> 'zoo' } equals: result\x0a",
|
|
|
+source: "testNontrivialModelModifiesAppropriateValue\x0a| isolator model result |\x0aresult := nil.\x0aisolator := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 3)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new\x0a\x09getBlock: [ :x | (x root at: 'foo') at: 2 ];\x0a\x09putBlock: [ :x :y | (x root at: 'foo') at: 2 put: y].\x0aisolator model: model modify: [:r|#new].\x0aisolator model: model read: [:r|result := r].\x0aself assert: #new equals: result.\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #{ 'foo' -> #('bar' #new 'baz'). 'moo' -> 'zoo' } equals: result\x0a",
|
|
|
messageSends: ["on:", "->", "getBlock:", "at:", "root", "new", "putBlock:", "at:put:", "model:modify:", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator", "EavModel"]
|
|
|
}),
|
|
@@ -107,22 +107,22 @@ selector: "testNontrivialModelReturnsAppropriateValue",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var model;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (3)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[["bar", [(1), [(2), (3)]], "baz"]]),smalltalk.send("moo","__minus_gt",["zoo"])])]);
|
|
|
model=smalltalk.send(smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]),"_getBlock_",[(function(x){
|
|
|
return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_",[(2)]);
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[model,(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[model,(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testNontrivialModelReturnsAppropriateValue\x0a| bb model result |\x0aresult := nil.\x0abb := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 3)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new getBlock: [ :x | (x root at: 'foo') at: 2 ].\x0abb model: model read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
+source: "testNontrivialModelReturnsAppropriateValue\x0a| isolator model result |\x0aresult := nil.\x0aisolator := Isolator on: #{ 'foo' -> #('bar' #(1 #(2 3)) 'baz'). 'moo' -> 'zoo' }.\x0amodel := EavModel new getBlock: [ :x | (x root at: 'foo') at: 2 ].\x0aisolator model: model read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
messageSends: ["on:", "->", "getBlock:", "at:", "root", "new", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator", "EavModel"]
|
|
|
}),
|
|
@@ -135,21 +135,21 @@ selector: "testRootModelExaminesThenModifiesRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
return smalltalk.send(r,"_second",[]);
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(2), (3)],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelExaminesThenModifiesRoot\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0abb model: rootModel modify: [:r|r second].\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #(2 3) equals: result\x0a",
|
|
|
+source: "testRootModelExaminesThenModifiesRoot\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0aisolator model: rootModel modify: [:r|r second].\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #(2 3) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:modify:", "second", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -162,18 +162,18 @@ selector: "testRootModelGetsRootForModification",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(2), [(1), (0)]]]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(2), [(1), (0)]]]);
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(2), [(1), (0)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelGetsRootForModification\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(2 #(1 0)).\x0abb model: rootModel modify: [:r|result := r].\x0aself assert: #(2 #(1 0)) equals: result\x0a",
|
|
|
+source: "testRootModelGetsRootForModification\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(2 #(1 0)).\x0aisolator model: rootModel modify: [:r|result := r].\x0aself assert: #(2 #(1 0)) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:modify:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -186,20 +186,20 @@ selector: "testRootModelModifiesAndDeeplyIsolatesInPlaceModifiedRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
var newValue;
|
|
|
result=nil;
|
|
|
newValue=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
newValue=r;
|
|
|
newValue;
|
|
|
smalltalk.send(r,"_at_put_",[(1),(4)]);
|
|
|
return r;
|
|
|
})]);
|
|
|
smalltalk.send(newValue,"_at_put_",[(2),"bar"]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
@@ -207,7 +207,7 @@ smalltalk.send(newValue,"_at_put_",[(2),"baz"]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(4), [(2), (3)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelModifiesAndDeeplyIsolatesInPlaceModifiedRoot\x0a| bb result newValue |\x0aresult := nil. newValue := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0abb model: rootModel modify: [:r|newValue := r. r at: 1 put: 4. r].\x0anewValue at: 2 put: 'bar'.\x0abb model: rootModel read: [:r|result := r].\x0anewValue at: 2 put: 'baz'.\x0aself assert: #(4 #(2 3)) equals: result\x0a",
|
|
|
+source: "testRootModelModifiesAndDeeplyIsolatesInPlaceModifiedRoot\x0a| isolator result newValue |\x0aresult := nil. newValue := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0aisolator model: rootModel modify: [:r|newValue := r. r at: 1 put: 4. r].\x0anewValue at: 2 put: 'bar'.\x0aisolator model: rootModel read: [:r|result := r].\x0anewValue at: 2 put: 'baz'.\x0aself assert: #(4 #(2 3)) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:modify:", "at:put:", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -220,17 +220,17 @@ selector: "testRootModelModifiesAndDeeplyIsolatesRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
var newValue;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
newValue=smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
return newValue;
|
|
|
})]);
|
|
|
smalltalk.send(smalltalk.send(newValue,"_at_",["foo"]),"_at_put_",[(1),"bar"]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
@@ -238,7 +238,7 @@ smalltalk.send(smalltalk.send(newValue,"_at_",["foo"]),"_at_put_",[(3),"baz"]);
|
|
|
smalltalk.send(self,"_assert_equals_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]),result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelModifiesAndDeeplyIsolatesRoot\x0a| bb result newValue |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0anewValue := #{'foo'->#(4 5 6)}.\x0abb model: rootModel modify: [:r|newValue].\x0a(newValue at: 'foo') at: 1 put: 'bar'.\x0abb model: rootModel read: [:r|result := r].\x0a(newValue at: 'foo') at: 3 put: 'baz'.\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
+source: "testRootModelModifiesAndDeeplyIsolatesRoot\x0a| isolator result newValue |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0anewValue := #{'foo'->#(4 5 6)}.\x0aisolator model: rootModel modify: [:r|newValue].\x0a(newValue at: 'foo') at: 1 put: 'bar'.\x0aisolator model: rootModel read: [:r|result := r].\x0a(newValue at: 'foo') at: 3 put: 'baz'.\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
messageSends: ["on:", "->", "model:modify:", "at:put:", "at:", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -251,17 +251,17 @@ selector: "testRootModelModifiesAndIsolatesRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
var newValue;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
newValue=smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
return newValue;
|
|
|
})]);
|
|
|
smalltalk.send(newValue,"_at_put_",["foo","bar"]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
@@ -269,7 +269,7 @@ smalltalk.send(newValue,"_at_put_",["foo","baz"]);
|
|
|
smalltalk.send(self,"_assert_equals_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]),result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelModifiesAndIsolatesRoot\x0a| bb result newValue |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0anewValue := #{'foo'->#(4 5 6)}.\x0abb model: rootModel modify: [:r|newValue].\x0anewValue at: 'foo' put: 'bar'.\x0abb model: rootModel read: [:r|result := r].\x0anewValue at: 'foo' put: 'baz'.\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
+source: "testRootModelModifiesAndIsolatesRoot\x0a| isolator result newValue |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0anewValue := #{'foo'->#(4 5 6)}.\x0aisolator model: rootModel modify: [:r|newValue].\x0anewValue at: 'foo' put: 'bar'.\x0aisolator model: rootModel read: [:r|result := r].\x0anewValue at: 'foo' put: 'baz'.\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
messageSends: ["on:", "->", "model:modify:", "at:put:", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -282,21 +282,21 @@ selector: "testRootModelModifiesRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
-smalltalk.send(bb,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+smalltalk.send(isolator,"_model_modify_",[self["@rootModel"],(function(r){
|
|
|
return smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]);
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[smalltalk.HashedCollection._fromPairs_([smalltalk.send("foo","__minus_gt",[[(4), (5), (6)]])]),result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelModifiesRoot\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0abb model: rootModel modify: [:r|#{'foo'->#(4 5 6)}].\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
+source: "testRootModelModifiesRoot\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0aisolator model: rootModel modify: [:r|#{'foo'->#(4 5 6)}].\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #{'foo'->#(4 5 6)} equals: result\x0a",
|
|
|
messageSends: ["on:", "model:modify:", "->", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -309,21 +309,21 @@ selector: "testRootModelReturnsDeeplyIsolatedRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
return smalltalk.send(smalltalk.send(r,"_at_",[(2)]),"_at_put_",[(1),(0)]);
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelReturnsDeeplyIsolatedRoot\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0abb model: rootModel read: [:r|(r at: 2) at: 1 put: 0].\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
+source: "testRootModelReturnsDeeplyIsolatedRoot\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0aisolator model: rootModel read: [:r|(r at: 2) at: 1 put: 0].\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:read:", "at:put:", "at:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -336,21 +336,21 @@ selector: "testRootModelReturnsIsolatedRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (4)]]]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (4)]]]);
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
return smalltalk.send(r,"_at_put_",[(2),nil]);
|
|
|
})]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(1), [(2), (4)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelReturnsIsolatedRoot\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 4)).\x0abb model: rootModel read: [:r|r at: 2 put: nil].\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 4)) equals: result\x0a",
|
|
|
+source: "testRootModelReturnsIsolatedRoot\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 4)).\x0aisolator model: rootModel read: [:r|r at: 2 put: nil].\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 4)) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:read:", "at:put:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|
|
@@ -363,18 +363,18 @@ selector: "testRootModelReturnsRoot",
|
|
|
category: 'tests',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-var bb;
|
|
|
+var isolator;
|
|
|
var result;
|
|
|
result=nil;
|
|
|
-bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
-smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
+isolator=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
|
|
|
+smalltalk.send(isolator,"_model_read_",[self["@rootModel"],(function(r){
|
|
|
result=r;
|
|
|
return result;
|
|
|
})]);
|
|
|
smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
|
|
|
return self},
|
|
|
args: [],
|
|
|
-source: "testRootModelReturnsRoot\x0a| bb result |\x0aresult := nil.\x0abb := Isolator on: #(1 #(2 3)).\x0abb model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
+source: "testRootModelReturnsRoot\x0a| isolator result |\x0aresult := nil.\x0aisolator := Isolator on: #(1 #(2 3)).\x0aisolator model: rootModel read: [:r|result := r].\x0aself assert: #(1 #(2 3)) equals: result\x0a",
|
|
|
messageSends: ["on:", "model:read:", "assert:equals:"],
|
|
|
referencedClasses: ["Isolator"]
|
|
|
}),
|