require_relative '../helper'
require 'parslet/convenience'

module CompilerHelper

  Phisol::Compiler.class_eval do
    def set_main main
      @clazz = Virtual.machine.space.get_class_by_name :Object
      @method = main
    end
  end
  def set_main compiler
    compiler.set_main Virtual.machine.space.get_main
  end
  def check
    machine = Virtual.machine
    machine.boot unless machine.booted
    parser = Parser::Salama.new
    parser = parser.send @root
    syntax  = parser.parse_with_debug(@string_input)
    parts = Parser::Transform.new.apply(syntax)
    #puts parts.inspect
    compiler = Phisol::Compiler.new
    set_main(compiler)
    produced = compiler.process( parts )
    assert @output , "No output given"
    assert_equal  produced.class, @output , "Wrong class"
  end

end