|
@@ -6155,6 +6155,35 @@ referencedClasses: ["Error"]
|
|
|
}),
|
|
|
globals.JSObjectProxyTest);
|
|
|
|
|
|
+smalltalk.addMethod(
|
|
|
+smalltalk.method({
|
|
|
+selector: "testDNURegression1062",
|
|
|
+protocol: 'tests',
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var jsObject,stored;
|
|
|
+function $Error(){return globals.Error||(typeof Error=="undefined"?nil:Error)}
|
|
|
+return smalltalk.withContext(function($ctx1) {
|
|
|
+jsObject=[];
|
|
|
+_st(jsObject)._basicAt_put_("allowJavaScriptCalls",true);
|
|
|
+$ctx1.sendIdx["basicAt:put:"]=1;
|
|
|
+_st(jsObject)._basicAt_put_("x",(function(v){
|
|
|
+stored=v;
|
|
|
+return stored;
|
|
|
+}));
|
|
|
+self._shouldnt_raise_((function(){
|
|
|
+return smalltalk.withContext(function($ctx2) {
|
|
|
+return _st(jsObject)._x_((4));
|
|
|
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}),$Error());
|
|
|
+self._assert_equals_(stored,(4));
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"testDNURegression1062",{jsObject:jsObject,stored:stored},globals.JSObjectProxyTest)})},
|
|
|
+args: [],
|
|
|
+source: "testDNURegression1062\x0a\x09| jsObject stored |\x0a\x09jsObject := #().\x0a\x09jsObject basicAt: 'allowJavaScriptCalls' put: true.\x0a\x09jsObject basicAt: 'x' put: [ :v | stored := v ].\x0a\x09self shouldnt: [ jsObject x: 4 ] raise: Error.\x0a\x09self assert: stored equals: 4",
|
|
|
+messageSends: ["basicAt:put:", "shouldnt:raise:", "x:", "assert:equals:"],
|
|
|
+referencedClasses: ["Error"]
|
|
|
+}),
|
|
|
+globals.JSObjectProxyTest);
|
|
|
+
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "testMessageSend",
|