123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- smalltalk.addPackage('Trapped-Tests', {});
- smalltalk.addClass('IsolatorTest', smalltalk.TestCase, ['rootModel'], 'Trapped-Tests');
- smalltalk.addMethod(
- "_setUp",
- smalltalk.method({
- selector: "setUp",
- fn: function (){
- var self=this;
- var $1,$2;
- $1=smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]);
- smalltalk.send($1,"_getBlock_",[(function(x){
- return smalltalk.send(x,"_root",[]);
- })]);
- $2=smalltalk.send($1,"_putBlock_",[(function(x,y){
- return smalltalk.send(x,"_root_",[y]);
- })]);
- self["@rootModel"]=$2;
- return self}
- }),
- smalltalk.IsolatorTest);
- smalltalk.addMethod(
- "_testNontrivialModelReturnsAppropriateValue",
- smalltalk.method({
- selector: "testNontrivialModelReturnsAppropriateValue",
- fn: function (){
- var self=this;
- var bb;
- var model;
- var result;
- 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"])])]);
- 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){
- result=r;
- return result;
- })]);
- smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
- return self}
- }),
- smalltalk.IsolatorTest);
- smalltalk.addMethod(
- "_testRootModelReturnsDeeplyIsolatedRoot",
- smalltalk.method({
- selector: "testRootModelReturnsDeeplyIsolatedRoot",
- fn: function (){
- var self=this;
- var bb;
- var result;
- bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
- smalltalk.send(bb,"_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){
- result=r;
- return result;
- })]);
- smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
- return self}
- }),
- smalltalk.IsolatorTest);
- smalltalk.addMethod(
- "_testRootModelReturnsIsolatedRoot",
- smalltalk.method({
- selector: "testRootModelReturnsIsolatedRoot",
- fn: function (){
- var self=this;
- var bb;
- var result;
- bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (4)]]]);
- smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
- return smalltalk.send(r,"_at_put_",[(2),nil]);
- })]);
- smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
- result=r;
- return result;
- })]);
- smalltalk.send(self,"_assert_equals_",[[(1), [(2), (4)]],result]);
- return self}
- }),
- smalltalk.IsolatorTest);
- smalltalk.addMethod(
- "_testRootModelReturnsRoot",
- smalltalk.method({
- selector: "testRootModelReturnsRoot",
- fn: function (){
- var self=this;
- var bb;
- var result;
- bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
- smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
- result=r;
- return result;
- })]);
- smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
- return self}
- }),
- smalltalk.IsolatorTest);
|