require_relative '../test-util'

describe "Pione::Model::PioneMethod" do
  before do
    @int_1 = PioneInteger.new(1).to_seq
    @int_2 = PioneInteger.new(2).to_seq
    @int_3 = PioneInteger.new(3).to_seq
    @str_1 = PioneString.new(1).to_seq
    @method_1 = Model::PioneMethod.new("m1", [TypeInteger], TypeInteger, lambda{|vtable, rec, arg1| arg1})
    @method_2 = Model::PioneMethod.new("m2", [TypeInteger, TypeString], TypeInteger, lambda{|vtable, rec, arg1, arg2| arg1})
    @method_3 = Model::PioneMethod.new("m3", [], :receiver_type, lambda{|vtable, rec| rec})
    @method_bad = Model::PioneMethod.new("mbad", [TypeString], TypeInteger, lambda{|vtable, rec, arg1| arg1})
    @vtable = Model::VariableTable.empty
  end

  it "should get inputs" do
    @method_1.inputs.should == [TypeInteger]
    @method_2.inputs.should == [TypeInteger, TypeString]
    @method_3.inputs.should == []
    @method_bad.inputs.should == [TypeString]
  end

  it "should get output" do
    @method_1.output.should == TypeInteger
    @method_2.output.should == TypeInteger
    @method_3.output.should == :receiver_type
    @method_bad.output.should == TypeInteger
  end

  it "should be callable" do
    @method_1.call(@vtable, @int_1, @int_2).should == @int_2
    @method_2.call(@vtable, @int_1, @int_2, @str_1).should == @int_2
    @method_3.call(@vtable, @int_1).should == @int_1
    @method_3.call(@vtable, @str_1).should == @str_1
  end

  it "should validate inputs" do
    @method_1.validate_inputs(@int_1).should.be.false
    @method_2.validate_inputs(@int_1).should.be.false
    @method_2.validate_inputs(@int_1, @str_1).should.be.false
    @method_2.validate_inputs(@int_1, @int_2).should.be.false
    @method_2.validate_inputs(@int_1, @int_2, @int_3, @str_1).should.be.false
    @method_3.validate_inputs(@int_1, @int_2).should.be.false
  end

  it "should call" do
    @method_1.call(@vtable, @int_1, @int_2).should == @int_2
    @method_2.call(@vtable, @int_1, @int_2, @str_1).should == @int_2
    @method_3.call(@vtable, @int_1).should == @int_1
  end

  it "should raise interface error" do
    should.raise(MethodInterfaceError){ @method_1.call(@vtable, @int_1, @str_1) }
    should.raise(MethodInterfaceError){ @method_2.call(@vtable, @int_1, @str_1, @str_1) }
    should.raise(MethodInterfaceError){ @method_bad.call(@vtable, @int_1, @str_1) }
  end
end