simple sends and all whiles working

This commit is contained in:
Torsten Ruger
2018-03-16 18:41:17 +05:30
parent 35a0952943
commit da0e1cdc5f
7 changed files with 40 additions and 40 deletions

View File

@ -8,19 +8,22 @@ module Vool
def setup
Risc.machine.boot
@stats = compile_first_method( "'5'.get_internal_byte(1)")
@ins = compile_first_method( "'5'.get_internal_byte(1)")
end
def receiver
[Mom::StringConstant , "5"]
end
def test_args_one_move
assert_equal :next_message, @stats[1].arguments[0].left.slots[0]
assert_equal :arguments, @stats[1].arguments[0].left.slots[1]
assert_equal :next_message, @ins.next.next.arguments[0].left.slots[0]
assert_equal :arguments, @ins.next.next.arguments[0].left.slots[1]
end
def test_args_one_str
assert_equal Mom::IntegerConstant, @stats[1].arguments[0].right.class
assert_equal 1, @stats[1].arguments[0].right.value
assert_equal Mom::IntegerConstant, @ins.next.next.arguments[0].right.class
assert_equal 1, @ins.next.next.arguments[0].right.value
end
def test_array
check_array [Mom::MessageSetup,Mom::SlotLoad,Mom::ArgumentTransfer,Mom::SimpleCall] , @ins
end
end
end