#!/usr/bin/env ruby

require File.expand_path(File.join(File.dirname(__FILE__), "test_helper"))


describe BinData::Base, "parameters" do
  it "fails when parameter name is invalid" do
    _ {
      class InvalidParameterNameBase < BinData::Base
        optional_parameter :lazy_eval # from LazyEvaluator
      end
    }.must_raise NameError
  end

  it "fails when parameter has nil value" do
    _ { BinData::Base.new(a: nil) }.must_raise ArgumentError
  end
end

describe BinData::Base, "#has_parameter?" do
  it "true for existing parameters" do
    obj = BinData::Base.new(a: 3)
    assert obj.has_parameter?(:a)
  end

  it "false for non-existing parameters" do
    obj = BinData::Base.new
    refute obj.has_parameter?(:a)
  end
end

describe BinData::Base, "#get_parameter" do
  it "retrieves parameter values" do
    obj = BinData::Base.new(a: 3)
    _(obj.get_parameter(:a)).must_equal 3
  end

  it "retrieves parameter values with string keys" do
    obj = BinData::Base.new('a' => 3)
    _(obj.get_parameter(:a)).must_equal 3
  end

  it "returns nil for non existing parameters" do
    obj = BinData::Base.new
    _(obj.get_parameter(:a)).must_be_nil
  end

  it "wont eval parameters" do
    obj = BinData::Base.new(a: -> { 3 })
    assert_kind_of Proc, obj.get_parameter(:a)
  end
end

describe BinData::Base, "#eval_parameter" do
  it "evals the parameter" do
    obj = BinData::Base.new(a: -> { 3 })
    _(obj.eval_parameter(:a)).must_equal 3
  end

  it "returns nil for a non existing parameter" do
    obj = BinData::Base.new
    _(obj.eval_parameter(:a)).must_be_nil
  end
end

describe BinData::Base, ".mandatory_parameters" do
  class MandatoryBase < BinData::Base
    mandatory_parameter :p1
    mandatory_parameter :p2
  end

  it "fails when not all mandatory parameters are present" do
    params = {p1: "a", xx: "b" }
    _ { MandatoryBase.new(params) }.must_raise ArgumentError
  end

  it "fails when no mandatory parameters are present" do
    _ { MandatoryBase.new() }.must_raise ArgumentError
  end
end

describe BinData::Base, ".default_parameters" do
  class DefaultBase < BinData::Base
    default_parameter p1: "a"
  end

  it "uses default parameters when not specified" do
    obj = DefaultBase.new
    _(obj.eval_parameter(:p1)).must_equal "a"
  end

  it "can override default parameters" do
    obj = DefaultBase.new(p1: "b")
    _(obj.eval_parameter(:p1)).must_equal "b"
  end
end

describe BinData::Base, ".mutually_exclusive_parameters" do
  class MutexParamBase < BinData::Base
    optional_parameters :p1, :p2, :p3
    mutually_exclusive_parameters :p1, :p2, :p3
  end

  it "fails when any two of those parameters are present" do
    _ { MutexParamBase.new(p1: "a", p2: "b") }.must_raise ArgumentError
    _ { MutexParamBase.new(p1: "a", p3: "c") }.must_raise ArgumentError
    _ { MutexParamBase.new(p2: "b", p3: "c") }.must_raise ArgumentError
  end
end

describe BinData::Base, "subclassing" do
  class ParamLevel1Base < BinData::Base
    optional_parameter :p1
  end

  class ParamLevel2Base < ParamLevel1Base
    optional_parameter :p2
  end

  it "inherits parameters" do
    accepted = ParamLevel2Base.accepted_parameters.all
    _(accepted).must_include :p1
    _(accepted).must_include :p2
  end
end

describe BinData::Base, "subclassing when skipping a level" do
  class ParamLevel1Base < BinData::Base
    optional_parameter :p1
  end

  class ParamLevel2Base < ParamLevel1Base
  end

  class ParamLevel3Base < ParamLevel2Base
    optional_parameter :p2
  end

  it "inherits parameters" do
    accepted = ParamLevel3Base.accepted_parameters.all
    _(accepted).must_include :p1
    _(accepted).must_include :p2
  end
end