2531 testObjects01

  2532     |rslt|

  2533     

  2534     rslt := JavaScriptParser evaluate:'var person = {fname:"John", lname:"Doe", age:25}; person'.

  2535     self assert:(rslt isDictionary).

  2536     self assert:(rslt includesKey:#'fname').

  2537     self assert:(rslt includesKey:#'lname').

  2538     self assert:(rslt includesKey:#'age').

  2539     self assert:(rslt age == 25).

  2540     self assert:(rslt at:#'age') == 25.

  2541     self assert:(rslt perform:#'age') == 25.

  2542     

  2543     "

  2544      self run:#testObjects01

  2545      self new testObjects01

  2546     "

  2547 

  2548     "Created: / 15-12-2018 / 10:12:27 / Claus Gittinger"

  2549 !

  2550