manage to create ruby methods
This commit is contained in:
@ -1 +1,13 @@
|
||||
require_relative '../helper'
|
||||
|
||||
module Melon
|
||||
module CompilerHelper
|
||||
def in_Space(statements)
|
||||
"class Space ; #{statements} ; end"
|
||||
end
|
||||
|
||||
def as_main(statements)
|
||||
in_Space("def main ; #{statements}; end")
|
||||
end
|
||||
end
|
||||
end
|
||||
|
@ -1,3 +1,4 @@
|
||||
require_relative "test_type_collector"
|
||||
require_relative "test_method_collector"
|
||||
require_relative "test_locals_collector"
|
||||
require_relative "test_class_creation"
|
||||
|
25
test/melon/compiler/test_class_creation.rb
Normal file
25
test/melon/compiler/test_class_creation.rb
Normal file
@ -0,0 +1,25 @@
|
||||
require_relative "helper"
|
||||
|
||||
module Melon
|
||||
class TestClass < MiniTest::Test
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
end
|
||||
|
||||
def test_creates_class_without_deriviation
|
||||
Compiler.compile "class Testing ; end"
|
||||
clazz = Parfait.object_space.get_class_by_name(:Testing)
|
||||
assert clazz , "No classes created"
|
||||
assert_equal :Object , clazz.super_class_name
|
||||
end
|
||||
|
||||
def test_creates_class_with_deriviation
|
||||
Compiler.compile "class Test2 < List ;end"
|
||||
clazz = Parfait.object_space.get_class_by_name(:Test2)
|
||||
assert clazz, "No classes created"
|
||||
assert_equal :List , clazz.super_class_name
|
||||
end
|
||||
|
||||
end
|
||||
end
|
19
test/melon/compiler/test_method_creation.rb
Normal file
19
test/melon/compiler/test_method_creation.rb
Normal file
@ -0,0 +1,19 @@
|
||||
require_relative "helper"
|
||||
|
||||
module Melon
|
||||
class TestMethod < MiniTest::Test
|
||||
include CompilerHelper
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
end
|
||||
|
||||
def test_creates_method_in_class
|
||||
Compiler.compile in_Space("def meth; @ivar;end")
|
||||
space = Parfait.object_space.get_class
|
||||
method = space.get_method(:meth)
|
||||
assert method , "No method created"
|
||||
end
|
||||
|
||||
end
|
||||
end
|
Reference in New Issue
Block a user