require File.dirname(__FILE__) + '/spec_helper'

describe YARD::CodeObjects::NamespaceObject do
  before { Registry.clear }
  
  describe '#child' do
    it "should return the object matching the name passed in if argument is a Symbol" do
      obj = NamespaceObject.new(nil, :YARD)
      other = NamespaceObject.new(obj, :Other)
      obj.child(:Other).should == other
      obj.child('Other').should == other
    end

    it "should look for attributes matching the object if the argument is a Hash" do
      obj = NamespaceObject.new(nil, :YARD)
      NamespaceObject.new(obj, :NotOther)
      other = NamespaceObject.new(obj, :Other)
      other.somevalue = 2
      obj.child(:somevalue => 2).should == other
    end
  end
  
  describe '#meths' do
    it "should return #meths even if parent is a Proxy" do
      obj = NamespaceObject.new(P(:String), :YARD)
      obj.meths.should be_empty
    end

    it "should not list included methods that are already defined in the namespace using #meths" do
      a = ModuleObject.new(nil, :Mod1)
      ameth = MethodObject.new(a, :testing)
      b = ModuleObject.new(nil, :Mod2)
      bmeth = MethodObject.new(b, :foo)
      c = NamespaceObject.new(nil, :YARD)
      cmeth = MethodObject.new(c, :testing)
      cmeth2 = MethodObject.new(c, :foo)
      c.instance_mixins << a
      c.class_mixins << b

      meths = c.meths
      meths.should include(bmeth)
      meths.should include(cmeth)
      meths.should include(cmeth2)
      meths.should_not include(ameth)

      meths = c.included_meths
      meths.should include(bmeth)
      meths.should_not include(ameth)
      meths.should_not include(cmeth)
      meths.should_not include(cmeth2)
    end
  end

  describe '#included_meths' do
    it "should list methods mixed into the class scope as class methods" do
      b = ModuleObject.new(nil, :Mod2)
      bmeth = MethodObject.new(b, :foo)
      bmeth2 = MethodObject.new(b, :foo2)
      c = NamespaceObject.new(nil, :YARD)
      c.class_mixins << b

      [bmeth, bmeth2].each {|o| o.scope.should == :instance }
      meths = c.included_meths(:scope => :class)
      meths.each {|o| o.scope.should == :class }
    end

    it "should not list methods overridden by another included module" do
      a = ModuleObject.new(nil, :Mod)
      ameth = MethodObject.new(a, :testing)
      b = ModuleObject.new(nil, :Mod2)
      bmeth = MethodObject.new(b, :testing)
      c = NamespaceObject.new(nil, :YARD)
      c.instance_mixins.unshift a
      c.instance_mixins.unshift b
      c.class_mixins.unshift b
      c.class_mixins.unshift a

      meths = c.included_meths(:scope => :instance)
      meths.should_not include(ameth)
      meths.should include(bmeth)

      meths = c.included_meths(:scope => :class)
      meths.should include(ameth)
      meths.should_not include(bmeth)
    end
  end
  
  describe '#class_attributes' do
    it "should list class attributes" do
      a = NamespaceObject.new(nil, :Mod)
      a.attributes[:instance][:a] = { :read => MethodObject.new(a, :a), :write => nil }
      a.attributes[:instance][:b] = { :read => MethodObject.new(a, :b), :write => nil }
      a.attributes[:class][:a] = { :read => MethodObject.new(a, :a, :class), :write => nil }
      a.class_attributes.keys.should include(:a)
      a.class_attributes.keys.should_not include(:b)
    end
  end
  
  describe '#instance_attributes' do
    it "should list instance attributes" do
      a = NamespaceObject.new(nil, :Mod)
      a.attributes[:instance][:a] = { :read => MethodObject.new(a, :a), :write => nil }
      a.attributes[:instance][:b] = { :read => MethodObject.new(a, :b), :write => nil }
      a.attributes[:class][:a] = { :read => MethodObject.new(a, :a, :class), :write => nil }
      a.instance_attributes.keys.should include(:a)
      a.instance_attributes.keys.should include(:b)
    end
  end
  
  describe '#constants/#included_constants' do
    before do
      Registry.clear

      YARD.parse_string <<-eof
        module A
          CONST1 = 1
          CONST2 = 2
        end

        module B
          CONST2 = -2
          CONST3 = -3
        end

        class C
          CONST3 = 3
          CONST4 = 4

          include A
          include B
        end
      eof
    end

    it "should list all included constants by default" do
      consts = P(:C).constants
      consts.should include(P('A::CONST1'))
      consts.should include(P('C::CONST4'))
    end

    it "should allow :included to be set to false to ignore included constants" do
      consts = P(:C).constants(:included => false)
      consts.should_not include(P('A::CONST1'))
      consts.should include(P('C::CONST4'))
    end

    it "should not list an included constant if it is defined in the object" do
      consts = P(:C).constants
      consts.should include(P('C::CONST3'))
      consts.should_not include(P('B::CONST3'))
    end

    it "should not list an included constant if it is shadowed by another included constant" do
      consts = P(:C).included_constants
      consts.should include(P('B::CONST2'))
      consts.should_not include(P('A::CONST2'))
    end
  end
  
  describe '#included_meths' do
    it "should return all included methods with :all = true" do
      YARD.parse_string <<-eof
        module B; def foo; end end
        module C; def bar; end end
        class A; include B; include C; def foo; end; def bar; end end
      eof
      Registry.at('A').included_meths(:all => true).should == [P('C#bar'), P('B#foo')]
    end
  end
end