Torsten Rüger
2eb9364283
Compilers forms alist by Util::CompilerList Change Collection to use the list instead of array
53 lines
1.7 KiB
Ruby
53 lines
1.7 KiB
Ruby
require_relative "helper"
|
|
|
|
module Vool
|
|
class TestBuiltin < MiniTest::Test
|
|
include VoolCompile
|
|
|
|
def setup
|
|
Parfait.boot!(Parfait.default_test_options)
|
|
@code = Builtin.boot_methods({})
|
|
end
|
|
def as_ruby
|
|
@ruby = Ruby::RubyCompiler.compile(@code)
|
|
end
|
|
def as_mom
|
|
vool = as_ruby.to_vool
|
|
vool.to_parfait
|
|
vool.to_mom(nil)
|
|
end
|
|
def test_boot
|
|
assert_equal String , @code.class
|
|
assert @code.include?("Integer")
|
|
end
|
|
def test_compile_ruby
|
|
assert_equal Ruby::ClassStatement , as_ruby.class
|
|
assert_equal Ruby::MethodStatement , @ruby.body.first.class
|
|
assert_equal :+ , @ruby.body.first.name
|
|
end
|
|
def test_compile_vool
|
|
vool = as_ruby.to_vool
|
|
assert_equal Vool::ClassExpression , vool.class
|
|
assert_equal Vool::MethodExpression , vool.body.first.class
|
|
end
|
|
def test_vool_method
|
|
vool = as_ruby.to_vool
|
|
assert_equal :+ , vool.body.first.name
|
|
assert_equal Vool::ReturnStatement , vool.body.first.body.class
|
|
assert_equal Vool::MacroExpression , vool.body.first.body.return_value.class
|
|
end
|
|
def test_mom_basic
|
|
mom = as_mom
|
|
assert_equal Mom::MomCollection , mom.class
|
|
assert_equal Mom::MethodCompiler , mom.method_compilers.class
|
|
end
|
|
def test_mom_instructions
|
|
mom_compiler = as_mom.method_compilers
|
|
assert_equal Mom::Label , mom_compiler.mom_instructions.class
|
|
assert_equal Mom::IntOperator , mom_compiler.mom_instructions.next.class
|
|
assert_equal Mom::SlotLoad , mom_compiler.mom_instructions.next(2).class
|
|
assert_equal Mom::ReturnJump , mom_compiler.mom_instructions.next(3).class
|
|
end
|
|
end
|
|
end
|