JSObjectProxy: add unit tests for >>value

js/Kernel-Tests.deploy.js

@@ -1936,6 +1936,21 @@ return self}, function($ctx1) {$ctx1.fill(self,"testPropertyThatReturnsUndefined
 }),
 smalltalk.JSObjectProxyTest);
 
+smalltalk.addMethod(
+"_testValue",
+smalltalk.method({
+selector: "testValue",
+fn: function (){
+var self=this;
+var testObject;
+return smalltalk.withContext(function($ctx1) { 
testObject=_st(self)._jsObject();
+_st(self)._assert_equals_("[object Object]",_st(_st(testObject)._value())._printString());
+_st(testObject)._at_put_("value","aValue");
+_st(self)._assert_equals_("aValue",_st(testObject)._value());
+return self}, function($ctx1) {$ctx1.fill(self,"testValue",{testObject:testObject}, smalltalk.JSObjectProxyTest)})}
+}),
+smalltalk.JSObjectProxyTest);
+
 smalltalk.addMethod(
 "_testYourself",
 smalltalk.method({

js/Kernel-Tests.js

@@ -2491,6 +2491,26 @@ referencedClasses: ["MessageNotUnderstood"]
 }),
 smalltalk.JSObjectProxyTest);
 
+smalltalk.addMethod(
+"_testValue",
+smalltalk.method({
+selector: "testValue",
+category: 'tests',
+fn: function (){
+var self=this;
+var testObject;
+return smalltalk.withContext(function($ctx1) { 
testObject=_st(self)._jsObject();
+_st(self)._assert_equals_("[object Object]",_st(_st(testObject)._value())._printString());
+_st(testObject)._at_put_("value","aValue");
+_st(self)._assert_equals_("aValue",_st(testObject)._value());
+return self}, function($ctx1) {$ctx1.fill(self,"testValue",{testObject:testObject}, smalltalk.JSObjectProxyTest)})},
+args: [],
+source: "testValue\x0a\x09| testObject |\x0a    testObject := self jsObject.\x0a\x09self assert: '[object Object]' equals: testObject value printString.\x0a    testObject at: 'value' put: 'aValue'.\x0a\x09self assert: 'aValue' equals: testObject value",
+messageSends: ["jsObject", "assert:equals:", "printString", "value", "at:put:"],
+referencedClasses: []
+}),
+smalltalk.JSObjectProxyTest);
+
 smalltalk.addMethod(
 "_testYourself",
 smalltalk.method({

st/Kernel-Tests.st

@@ -979,6 +979,14 @@ testPropertyThatReturnsUndefined
     self assert: object e isNil
 !
 
+testValue
+	| testObject |
+    testObject := self jsObject.
+	self assert: '[object Object]' equals: testObject value printString.
+    testObject at: 'value' put: 'aValue'.
+	self assert: 'aValue' equals: testObject value
+!
+
 testYourself
 	| object |
 	object := self jsObject