31 lines
725 B
Ruby
31 lines
725 B
Ruby
require_relative "helper"
|
|
|
|
module RubyX
|
|
module Macro
|
|
class TestObjectSet < MiniTest::Test
|
|
include MacroHelper
|
|
def source
|
|
<<GET
|
|
class Object
|
|
def set_internal_word(at , value)
|
|
X.set_internal_word
|
|
end
|
|
end
|
|
GET
|
|
end
|
|
def test_slot_meth
|
|
assert_equal :set_internal_word , compiler.callable.name
|
|
end
|
|
def test_instr_len
|
|
assert_equal 7 , compiler.slot_instructions.length
|
|
end
|
|
def test_instr_get
|
|
assert_equal SlotMachine::SetInternalWord , compiler.slot_instructions.next.class
|
|
end
|
|
def test_risc
|
|
assert_equal 19 , compiler.to_risc.risc_instructions.length
|
|
end
|
|
end
|
|
end
|
|
end
|