Trapped-Tests.deploy.js 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  1. smalltalk.addPackage('Trapped-Tests', {});
  2. smalltalk.addClass('IsolatorTest', smalltalk.TestCase, ['rootModel'], 'Trapped-Tests');
  3. smalltalk.addMethod(
  4. "_setUp",
  5. smalltalk.method({
  6. selector: "setUp",
  7. fn: function (){
  8. var self=this;
  9. var $1,$2;
  10. $1=smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]);
  11. smalltalk.send($1,"_getBlock_",[(function(x){
  12. return smalltalk.send(x,"_root",[]);
  13. })]);
  14. $2=smalltalk.send($1,"_putBlock_",[(function(x,y){
  15. return smalltalk.send(x,"_root_",[y]);
  16. })]);
  17. self["@rootModel"]=$2;
  18. return self}
  19. }),
  20. smalltalk.IsolatorTest);
  21. smalltalk.addMethod(
  22. "_testNontrivialModelReturnsAppropriateValue",
  23. smalltalk.method({
  24. selector: "testNontrivialModelReturnsAppropriateValue",
  25. fn: function (){
  26. var self=this;
  27. var bb;
  28. var model;
  29. var result;
  30. 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"])])]);
  31. model=smalltalk.send(smalltalk.send((smalltalk.EavModel || EavModel),"_new",[]),"_getBlock_",[(function(x){
  32. return smalltalk.send(smalltalk.send(smalltalk.send(x,"_root",[]),"_at_",["foo"]),"_at_",[(2)]);
  33. })]);
  34. smalltalk.send(bb,"_model_read_",[model,(function(r){
  35. result=r;
  36. return result;
  37. })]);
  38. smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
  39. return self}
  40. }),
  41. smalltalk.IsolatorTest);
  42. smalltalk.addMethod(
  43. "_testRootModelReturnsDeeplyIsolatedRoot",
  44. smalltalk.method({
  45. selector: "testRootModelReturnsDeeplyIsolatedRoot",
  46. fn: function (){
  47. var self=this;
  48. var bb;
  49. var result;
  50. bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
  51. smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
  52. return smalltalk.send(smalltalk.send(r,"_at_",[(2)]),"_at_put_",[(1),(0)]);
  53. })]);
  54. smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
  55. result=r;
  56. return result;
  57. })]);
  58. smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
  59. return self}
  60. }),
  61. smalltalk.IsolatorTest);
  62. smalltalk.addMethod(
  63. "_testRootModelReturnsIsolatedRoot",
  64. smalltalk.method({
  65. selector: "testRootModelReturnsIsolatedRoot",
  66. fn: function (){
  67. var self=this;
  68. var bb;
  69. var result;
  70. bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (4)]]]);
  71. smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
  72. return smalltalk.send(r,"_at_put_",[(2),nil]);
  73. })]);
  74. smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
  75. result=r;
  76. return result;
  77. })]);
  78. smalltalk.send(self,"_assert_equals_",[[(1), [(2), (4)]],result]);
  79. return self}
  80. }),
  81. smalltalk.IsolatorTest);
  82. smalltalk.addMethod(
  83. "_testRootModelReturnsRoot",
  84. smalltalk.method({
  85. selector: "testRootModelReturnsRoot",
  86. fn: function (){
  87. var self=this;
  88. var bb;
  89. var result;
  90. bb=smalltalk.send((smalltalk.Isolator || Isolator),"_on_",[[(1), [(2), (3)]]]);
  91. smalltalk.send(bb,"_model_read_",[self["@rootModel"],(function(r){
  92. result=r;
  93. return result;
  94. })]);
  95. smalltalk.send(self,"_assert_equals_",[[(1), [(2), (3)]],result]);
  96. return self}
  97. }),
  98. smalltalk.IsolatorTest);