81 lines
2.2 KiB
Ruby
81 lines
2.2 KiB
Ruby
require_relative "helper"
|
|
|
|
module Risc
|
|
class TestMachineObjects < MiniTest::Test
|
|
|
|
def setup
|
|
@machine = Risc.machine.boot
|
|
end
|
|
def test_objects
|
|
objects = @machine.objects
|
|
assert_equal Hash , objects.class
|
|
assert 350 < objects.length
|
|
end
|
|
def test_constant_fail
|
|
assert_raises {@machine.add_constant( 1 )}
|
|
end
|
|
def test_constant
|
|
assert @machine.add_constant( Parfait::Integer.new(5) )
|
|
end
|
|
def test_address_get
|
|
assert_equal Parfait::ReturnAddress , @machine.get_address.class
|
|
end
|
|
def test_address_is_constant
|
|
addr = @machine.get_address
|
|
assert @machine.constants.include?(addr)
|
|
end
|
|
def test_address_count
|
|
addr = @machine.get_address
|
|
count = 0
|
|
while(addr)
|
|
count += 1
|
|
addr = addr.next_integer
|
|
end
|
|
assert_equal 5, count
|
|
end
|
|
end
|
|
class TestMachinePos < MiniTest::Test
|
|
def setup
|
|
@machine = Risc.machine.boot
|
|
@machine.translate(:arm)
|
|
@machine.position_all
|
|
end
|
|
def test_positions_set
|
|
@machine.objects.each do |id,obj|
|
|
assert Position.get(obj).valid? , "#{Position.get(obj)} , #{obj.object_id.to_s(16)}"
|
|
end
|
|
end
|
|
end
|
|
class TestMachineInit < MiniTest::Test
|
|
def setup
|
|
@machine = Risc.machine.boot
|
|
@machine.translate(:arm)
|
|
@machine.position_all
|
|
@machine.create_binary
|
|
end
|
|
def test_pos_cpu
|
|
assert_equal 0 , Position.get(@machine.cpu_init).at
|
|
end
|
|
def test_cpu_at
|
|
assert_equal "0x5eb4" , Position.get(@machine.cpu_init.first).to_s
|
|
end
|
|
def test_cpu_label
|
|
assert_equal Position , Position.get(@machine.cpu_init.first).class
|
|
end
|
|
def test_first_binary_jump
|
|
bin = Parfait.object_space.get_init.binary
|
|
assert 0 != bin.get_word(Parfait::BinaryCode.data_length) , "index 0 is 0 #{bin.inspect}"
|
|
end
|
|
def test_second_binary_first
|
|
bin = Parfait.object_space.get_init.binary.next
|
|
assert 0 != bin.get_word(0) , "index 0 is 0 #{bin.inspect}"
|
|
end
|
|
def test_positions_set
|
|
@machine.objects.each do |id,obj|
|
|
assert Position.get(obj).valid? , "#{Position.get(obj)} , #{obj.object_id.to_s(16)}"
|
|
end
|
|
end
|
|
|
|
end
|
|
end
|