require_relative '../../spec_helper'
require_relative '../module/fixtures/classes'

describe "Class#subclasses" do
  it "returns a list of classes directly inheriting from self" do
    assert_subclasses(ModuleSpecs::Parent, [ModuleSpecs::Child, ModuleSpecs::Child2])
  end

  it "does not return included modules from the parent" do
    parent = Class.new
    child = Class.new(parent)
    mod = Module.new
    parent.include(mod)

    assert_subclasses(parent, [child])
  end

  it "does not return included modules from the child" do
    parent = Class.new
    child = Class.new(parent)
    mod = Module.new
    parent.include(mod)

    assert_subclasses(parent, [child])
  end

  it "does not return prepended modules from the parent" do
    parent = Class.new
    child = Class.new(parent)
    mod = Module.new
    parent.prepend(mod)

    assert_subclasses(parent, [child])
  end

  it "does not return prepended modules from the child" do
    parent = Class.new
    child = Class.new(parent)
    mod = Module.new
    child.prepend(mod)

    assert_subclasses(parent, [child])
  end

  it "does not return singleton classes" do
    a = Class.new

    a_obj = a.new
    def a_obj.force_singleton_class
      42
    end

    a.subclasses.should_not.include?(a_obj.singleton_class)
  end

  it "has 1 entry per module or class" do
    ModuleSpecs::Parent.subclasses.should == ModuleSpecs::Parent.subclasses.uniq
  end

  it "works when creating subclasses concurrently" do
    t = 16
    n = 1000
    go = false
    superclass = Class.new

    threads = t.times.map do
      Thread.new do
        Thread.pass until go
        n.times.map do
          Class.new(superclass)
        end
      end
    end

    go = true
    classes = threads.map(&:value)

    superclass.subclasses.size.should == t * n
    superclass.subclasses.each { |c| c.should.is_a?(Class) }
  end

  def assert_subclasses(mod,subclasses)
    mod.subclasses.sort_by(&:inspect).should == subclasses.sort_by(&:inspect)
  end
end
