require_relative '../../spec_helper'
require_relative 'fixtures/classes'
require_relative '../../fixtures/reflection'

# TODO: rewrite
describe "Kernel#methods" do
  it "returns singleton methods defined by obj.meth" do
    KernelSpecs::Methods.methods(false).should include(:ichi)
  end

  it "returns singleton methods defined in 'class << self'" do
    KernelSpecs::Methods.methods(false).should include(:san)
  end

  it "returns private singleton methods defined by obj.meth" do
    KernelSpecs::Methods.methods(false).should include(:shi)
  end

  it "returns singleton methods defined in 'class << self' when it follows 'private'" do
    KernelSpecs::Methods.methods(false).should include(:roku)
  end

  it "does not return private singleton methods defined in 'class << self'" do
    KernelSpecs::Methods.methods(false).should_not include(:shichi)
  end

  it "returns the publicly accessible methods of the object" do
    meths =  KernelSpecs::Methods.methods(false)
    meths.should include(:hachi, :ichi, :juu, :juu_ichi,
                         :juu_ni, :roku, :san, :shi)

    KernelSpecs::Methods.new.methods(false).should == []
  end

  it "returns the publicly accessible methods in the object, its ancestors and mixed-in modules" do
    meths = KernelSpecs::Methods.methods(false) & KernelSpecs::Methods.methods
    meths.should include(:hachi, :ichi, :juu, :juu_ichi,
                         :juu_ni, :roku, :san, :shi)

    KernelSpecs::Methods.new.methods.should include(:ku, :ni, :juu_san)
  end

  it "returns methods added to the metaclass through extend" do
    meth = KernelSpecs::Methods.new
    meth.methods.should_not include(:peekaboo)
    meth.extend(KernelSpecs::Methods::MetaclassMethods)
    meth.methods.should include(:peekaboo)
  end

  it "does not return undefined singleton methods defined by obj.meth" do
    o = KernelSpecs::Child.new
    def o.single; end
    o.methods.should include(:single)

    class << o; self; end.send :undef_method, :single
    o.methods.should_not include(:single)
  end

  it "does not return superclass methods undefined in the object's class" do
    KernelSpecs::Child.new.methods.should_not include(:parent_method)
  end

  it "does not return superclass methods undefined in a superclass" do
    KernelSpecs::Grandchild.new.methods.should_not include(:parent_method)
  end

  it "does not return included module methods undefined in the object's class" do
    KernelSpecs::Grandchild.new.methods.should_not include(:parent_mixin_method)
  end
end

describe :kernel_methods_supers, shared: true do
  before :all do
    @ms = [:pro, :pub]
  end

  it "returns a unique list for an object extended by a module" do
    m = ReflectSpecs.oed.methods(*@object)
    m.select { |x| @ms.include? x }.sort.should == @ms
  end

  it "returns a unique list for a class including a module" do
    m = ReflectSpecs::D.new.methods(*@object)
    m.select { |x| @ms.include? x }.sort.should == @ms
  end

  it "returns a unique list for a subclass of a class that includes a module" do
    m = ReflectSpecs::E.new.methods(*@object)
    m.select { |x| @ms.include? x }.sort.should == @ms
  end
end

describe "Kernel#methods" do
  describe "when not passed an argument" do
    it_behaves_like :kernel_methods_supers, nil, []
  end

  describe "when passed true" do
    it_behaves_like :kernel_methods_supers, nil, true
  end
end