Testing @jin:
@jin 5 6 => FALSE (correct)
@jin 6 5 => TRUE (correct)
Warning: @jin called with object 0 (PC = 620) (occurrence 1)
@jin 0 5 => FALSE (correct)
Warning: @jin called with object 0 (PC = 620) (occurrence 2)
@jin 0 0 => TRUE (correct)
Testing @get_child:
@get_child 5 => 6 (correct)
@get_child 7 => 0 (correct)
Warning: @get_child called with object 0 (PC = 693) (occurrence 1)
@get_child 0 => 0 (correct)
Testing @get_parent:
@get_parent 5 => 0 (correct)
@get_parent 6 => 5 (correct)
Warning: @get_parent called with object 0 (PC = 6fb) (occurrence 1)
@get_parent 0 => 0 (correct)
Testing @get_sibling:
@get_sibling 5 => 0 (correct)
@get_sibling 6 => 7 (correct)
Warning: @get_sibling called with object 0 (PC = 73b) (occurrence 1)
@get_sibling 0 => 0 (correct)
Testing @get_prop_addr:
@get_prop_addr 5 4 => 571 (correct)
@get_prop_addr 7 4 => 0 (correct)
Warning: @get_prop_addr called with object 0 (PC = 7a8) (occurrence 1)
@get_prop_addr 0 4 => 0 (correct)
Testing @get_prop:
@get_prop 5 4 => 1 (correct)
@get_prop 6 4 => 0 (correct)
Warning: @get_prop called with object 0 (PC = 7f0) (occurrence 1)
@get_prop 0 4 => 0 (correct)
Testing @clear_attr:
@clear_attr 5 0
@clear_attr 5 1
Warning: @clear_attr called with object 0 (PC = 834) (occurrence 1)
@clear_attr 0 0
Warning: @clear_attr called with object 0 (PC = 834) (occurrence 2)
@clear_attr 0 1
Testing @set_attr:
@set_attr 5 0
@set_attr 5 1
Warning: @set_attr called with object 0 (PC = 850) (occurrence 1)
@set_attr 0 0
(Note: An attempt has been made to set attribute number 0 in object number 0. If
the @test_attr test below indicates that this attribute has been set, the
interpreter did not ignore the instruction as it should have done.)
Testing @test_attr:
@test_attr 5 0 => TRUE (correct)
@test_attr 5 1 => TRUE (correct)
@test_attr 6 0 => FALSE (correct)
@test_attr 6 1 => FALSE (correct)
Warning: @test_attr called with object 0 (PC = 86c) (occurrence 1)
@test_attr 0 0 => FALSE (correct)
Warning: @test_attr called with object 0 (PC = 86c) (occurrence 2)
@test_attr 0 1 => FALSE (correct)
Testing @insert_obj:
@insert_obj 7 5
Warning: @move_object called moving object 0 (PC = 8f0) (occurrence 1)
@insert_obj 0 5
Warning: @move_object called moving into object 0 (PC = 8f0) (occurrence 1)
@insert_obj 5 0
Warning: @move_object called moving object 0 (PC = 8f0) (occurrence 2)
@insert_obj 0 0
Testing remove_obj:
@remove_obj 7
Warning: @remove_object called with object 0 (PC = 90b) (occurrence 1)
@remove_obj 0
Testing get_next_prop:
@get_next_prop 5 5 => 4 (correct)
@get_next_prop 6 4 => 0 (correct)
Warning: @get_next_prop called with object 0 (PC = 924) (occurrence 1)
@get_next_prop 0 4 => 0 (correct)
Test completed!
End of transcript