public void ExecuteBasicInstVarAtPut()
{
Machine machine = new Machine();
IClass cls = this.CompileClass(
"Rectangle",
new string[] { "x", "y" },
new string[] { "x ^x", "x: newX x := newX", "y ^y", "y: newY y := newY" });
IObject iobj = (IObject)cls.NewObject();
machine.SetGlobalObject("aRectangle", iobj);
Block block = this.compiler.CompileBlock("aRectangle basicInstVarAt: 1 put: 200");
Assert.IsNotNull(block);
block.Execute(machine, null);
Assert.AreEqual(200, iobj[0]);
Assert.IsNull(iobj[1]);
}