23 lines
667 B
Ruby
23 lines
667 B
Ruby
require_relative "compiler_helper"
|
|
|
|
|
|
class CompilerTest < MiniTest::Test
|
|
include AST::Sexp
|
|
def setup
|
|
Virtual.machine.boot
|
|
end
|
|
def check
|
|
res = Phisol::Compiler.compile( @expression )
|
|
assert res.is_a?(Virtual::Slot) , "compiler must compile to slot, not #{res.inspect}"
|
|
end
|
|
def test_function_expression
|
|
@expression = s(:class, :Foo,
|
|
s(:derives, :Object),
|
|
s(:expressions,
|
|
s(:function, :int, s(:name, :foo),
|
|
s(:parameters, s(:parameter, :ref, :x)),
|
|
s(:expressions, s(:int, 5)))))
|
|
check
|
|
end
|
|
end
|