86462e238a
calling convention does affect less than before, but still a LOT
48 lines
1.4 KiB
Ruby
48 lines
1.4 KiB
Ruby
require_relative "helper"
|
|
|
|
module Risc
|
|
class TestLinkerObjects < MiniTest::Test
|
|
|
|
def setup
|
|
Parfait.boot!
|
|
Risc.boot!
|
|
@linker = Mom::MomCompiler.new.translate(:arm)
|
|
end
|
|
def test_objects
|
|
objects = @linker.object_positions
|
|
assert_equal Hash , objects.class
|
|
assert 350 < objects.length
|
|
end
|
|
def test_constant_fail
|
|
assert_raises {@machine.add_constant( 1 )}
|
|
end
|
|
end
|
|
class TestLinkerInit < MiniTest::Test
|
|
def setup
|
|
@linker = RubyX::RubyXCompiler.new("class Space;def main;return 1;end;end").ruby_to_binary(:arm)
|
|
end
|
|
def test_pos_cpu
|
|
assert_equal 0 , Position.get(@linker.cpu_init).at
|
|
end
|
|
def test_cpu_at
|
|
assert_equal "0x74cc" , Position.get(@linker.cpu_init.first).to_s
|
|
end
|
|
def test_cpu_label
|
|
assert_equal Position , Position.get(@linker.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_code
|
|
assert 0 != bin.get_word(0) , "index 0 is 0 #{bin.inspect}"
|
|
end
|
|
def test_positions_set
|
|
@linker.object_positions.each do |obj,position|
|
|
assert position.valid? , "#{position} #{position.object.class}, #{obj.object_id.to_s(16)}"
|
|
end
|
|
end
|
|
end
|
|
end
|