Torsten Rüger
fd46826b9c
as they are just the type of the meta_class, that was relatively simple. I feel this is what oo is meant to be, instance variables and methods for the objects, and since classes are objects, for them too. Class variables seem like a design mistake, weird scoping rules and no data hiding (left as an exercise to the reader)
47 lines
1.2 KiB
Ruby
47 lines
1.2 KiB
Ruby
require_relative "helper"
|
|
|
|
module Vool
|
|
class TestClassInstance < MiniTest::Test
|
|
include Mom
|
|
include VoolCompile
|
|
|
|
def class_main
|
|
<<-eos
|
|
class Space
|
|
def self.some_inst
|
|
return @inst
|
|
end
|
|
def main(arg)
|
|
return Space.one_plus
|
|
end
|
|
end
|
|
eos
|
|
end
|
|
|
|
def setup
|
|
ret = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_mom(class_main)
|
|
@ins = ret.compilers.find{|c|c.callable.name==:some_inst}.mom_instructions.next
|
|
end
|
|
def test_class_inst
|
|
space_class = Parfait.object_space.get_class
|
|
assert_equal :Space , space_class.name
|
|
names = space_class.meta_class.instance_type.names
|
|
assert names.index_of(:inst) , names
|
|
end
|
|
def test_array
|
|
check_array [SlotLoad, ReturnJump, Label, ReturnSequence, Label] , @ins
|
|
end
|
|
def test_load_inst
|
|
assert_equal SlotLoad, @ins.class
|
|
end
|
|
def test_left
|
|
assert_equal SlotDefinition , @ins.left.class
|
|
assert_equal [:return_value] , @ins.left.slots
|
|
end
|
|
def test_right
|
|
assert_equal SlotDefinition , @ins.right.class
|
|
assert_equal [:receiver , :inst] , @ins.right.slots
|
|
end
|
|
end
|
|
end
|