generalize get_main and get_init to get_method
to get at those know methods that really __must__ exists, hence the bang, raise if don't about to add method missing and raise to the list
This commit is contained in:
@ -1,6 +1,4 @@
|
||||
require_relative "helper"
|
||||
class FakeCallable
|
||||
end
|
||||
module Mom
|
||||
class FakeCallableCompiler < CallableCompiler
|
||||
def source_name
|
||||
|
@ -45,28 +45,6 @@ module Parfait
|
||||
def test_all_classes
|
||||
assert_equal classes.length , @space.classes.length , @space.classes.keys.inspect
|
||||
end
|
||||
def test_types
|
||||
assert @space.types.is_a? Parfait::Dictionary
|
||||
end
|
||||
def test_types_attr
|
||||
assert @space.types.is_a? Parfait::Dictionary
|
||||
end
|
||||
def test_types_each
|
||||
@space.each_type do |type|
|
||||
assert type.is_a?(Parfait::Type)
|
||||
end
|
||||
end
|
||||
def test_types_hashes
|
||||
types = @space.types
|
||||
types.each do |has , type|
|
||||
assert has.is_a?(::Integer) , has.inspect
|
||||
end
|
||||
end
|
||||
def test_classes_types_in_space_types
|
||||
@space.classes do |name , clazz|
|
||||
assert_equal clazz.instance_type , @space.get_type_for(clazz.instance_type.hash) , clazz.name
|
||||
end
|
||||
end
|
||||
def test_word_class
|
||||
word = @space.classes[:Word]
|
||||
assert word.instance_type
|
||||
@ -149,39 +127,6 @@ module Parfait
|
||||
assert @space.get_class_by_name(:NewerClass)
|
||||
end
|
||||
|
||||
def test_class_types_are_stored
|
||||
@space.classes.each do |name,clazz|
|
||||
assert @space.get_type_for(clazz.instance_type.hash)
|
||||
end
|
||||
end
|
||||
|
||||
def test_class_types_are_identical
|
||||
@space.classes.each do |name , clazz|
|
||||
cl_type = @space.get_type_for(clazz.instance_type.hash)
|
||||
assert_equal cl_type.object_id , clazz.instance_type.object_id
|
||||
end
|
||||
end
|
||||
|
||||
def test_remove_methods
|
||||
@space.each_type do | type |
|
||||
type.method_names.each do |method|
|
||||
type.remove_method(method)
|
||||
end
|
||||
end
|
||||
assert_equal 0 , @space.get_all_methods.length
|
||||
end
|
||||
def test_no_methods_in_types
|
||||
test_remove_methods
|
||||
@space.each_type do |type|
|
||||
assert_equal 0 , type.methods_length , "name #{type.name}"
|
||||
end
|
||||
end
|
||||
def test_no_methods_in_classes
|
||||
test_remove_methods
|
||||
@space.classes.each do |name , cl|
|
||||
assert_equal 0 , cl.instance_type.methods_length , "name #{cl.name}"
|
||||
end
|
||||
end
|
||||
end
|
||||
class BigTestSpace < BigParfaitTest
|
||||
def test_address_count
|
||||
|
71
test/parfait/test_space2.rb
Normal file
71
test/parfait/test_space2.rb
Normal file
@ -0,0 +1,71 @@
|
||||
require_relative "helper"
|
||||
|
||||
module Parfait
|
||||
# Most type and method related stuff
|
||||
class TestSpaceMethod < ParfaitTest
|
||||
|
||||
def test_types
|
||||
assert @space.types.is_a? Parfait::Dictionary
|
||||
end
|
||||
def test_types_attr
|
||||
assert @space.types.is_a? Parfait::Dictionary
|
||||
end
|
||||
def test_types_each
|
||||
@space.each_type do |type|
|
||||
assert type.is_a?(Parfait::Type)
|
||||
end
|
||||
end
|
||||
def test_types_hashes
|
||||
types = @space.types
|
||||
types.each do |has , type|
|
||||
assert has.is_a?(::Integer) , has.inspect
|
||||
end
|
||||
end
|
||||
def test_classes_types_in_space_types
|
||||
@space.classes do |name , clazz|
|
||||
assert_equal clazz.instance_type , @space.get_type_for(clazz.instance_type.hash) , clazz.name
|
||||
end
|
||||
end
|
||||
|
||||
def test_class_types_are_stored
|
||||
@space.classes.each do |name,clazz|
|
||||
assert @space.get_type_for(clazz.instance_type.hash)
|
||||
end
|
||||
end
|
||||
|
||||
def test_class_types_are_identical
|
||||
@space.classes.each do |name , clazz|
|
||||
cl_type = @space.get_type_for(clazz.instance_type.hash)
|
||||
assert_equal cl_type.object_id , clazz.instance_type.object_id
|
||||
end
|
||||
end
|
||||
|
||||
def test_remove_methods
|
||||
@space.each_type do | type |
|
||||
type.method_names.each do |method|
|
||||
type.remove_method(method)
|
||||
end
|
||||
end
|
||||
assert_equal 0 , @space.get_all_methods.length
|
||||
end
|
||||
|
||||
def test_no_methods_in_types
|
||||
test_remove_methods
|
||||
@space.each_type do |type|
|
||||
assert_equal 0 , type.methods_length , "name #{type.name}"
|
||||
end
|
||||
end
|
||||
|
||||
def test_no_methods_in_classes
|
||||
test_remove_methods
|
||||
@space.classes.each do |name , cl|
|
||||
assert_equal 0 , cl.instance_type.methods_length , "name #{cl.name}"
|
||||
end
|
||||
end
|
||||
|
||||
def test_get_method_raises
|
||||
assert_raises(RuntimeError){ @space.get_method!(:Space,:main)}
|
||||
end
|
||||
|
||||
end
|
||||
end
|
@ -63,6 +63,10 @@ module Parfait
|
||||
type.add_method(foo)
|
||||
assert_equal :foo , type.get_method(:foo).name
|
||||
end
|
||||
def test_space_get_method
|
||||
test_get_instance
|
||||
assert_equal :foo , @space.get_method!(:Object , :foo).name
|
||||
end
|
||||
def test_resolve_on_object
|
||||
add_foo_to :Object
|
||||
assert_equal :foo , object_type.resolve_method( :foo ).name
|
||||
|
@ -6,8 +6,8 @@ module Risc
|
||||
def setup
|
||||
Parfait.boot!(Parfait.default_test_options)
|
||||
Risc.boot!
|
||||
init = Parfait.object_space.get_init
|
||||
@builder = Risc::MethodCompiler.new( init ,Mom::Label.new( "source_name", "return_label")).builder(init)
|
||||
label = Mom::Label.new( "source_name", "return_label")
|
||||
@builder = Risc::MethodCompiler.new( FakeCallable.new ,label).builder("source")
|
||||
@label = Risc.label("source","name")
|
||||
@start = @builder.compiler.current
|
||||
end
|
||||
|
@ -6,9 +6,9 @@ module Risc
|
||||
def setup
|
||||
Parfait.boot!(Parfait.default_test_options)
|
||||
Risc.boot!
|
||||
@init = Parfait.object_space.get_init
|
||||
@compiler = Risc::MethodCompiler.new( @init, Mom::Label.new( "source_name", "return_label") )
|
||||
@builder = @compiler.builder(@init)
|
||||
method = FakeCallable.new
|
||||
@compiler = Risc::MethodCompiler.new( method, Mom::Label.new( "source_name", "return_label") )
|
||||
@builder = @compiler.builder(method)
|
||||
end
|
||||
def test_list
|
||||
assert_equal :List , @builder.infer_type(:list).class_name
|
||||
|
@ -30,11 +30,11 @@ module Risc
|
||||
assert_equal Position , Position.get(@linker.cpu_init.first).class
|
||||
end
|
||||
def test_first_binary_jump
|
||||
bin = Parfait.object_space.get_init.binary
|
||||
bin = Parfait.object_space.get_method!(:Object,:__init__).binary
|
||||
assert_equal 116 , bin.total_byte_length
|
||||
end
|
||||
def test_second_binary_first
|
||||
bin = Parfait.object_space.get_init.binary
|
||||
bin = Parfait.object_space.get_method!(:Object,:__init__).binary
|
||||
assert 0 != bin.get_word(0) , "index 0 is 0 #{bin.inspect}"
|
||||
end
|
||||
def test_positions_set
|
||||
|
@ -1,3 +1,5 @@
|
||||
class FakeCallable
|
||||
end
|
||||
module Risc
|
||||
class FakeCompiler
|
||||
attr_reader :instructions
|
||||
|
Reference in New Issue
Block a user