rails--rails/activesupport/test/reloadable_test.rb

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

module ReloadableTestSandbox

  class AReloadableClass
    include Reloadable
  end
  class AReloadableClassWithSubclasses
    include Reloadable
  end
  class AReloadableSubclass < AReloadableClassWithSubclasses
  end
  class ANonReloadableSubclass < AReloadableClassWithSubclasses
    def self.reloadable?
      false
    end
  end
  class AClassWhichDefinesItsOwnReloadable
    def self.reloadable?
      10
    end
    include Reloadable
  end

  class SubclassesReloadable
    include Reloadable::Subclasses
  end
  class ASubclassOfSubclassesReloadable < SubclassesReloadable
  end

  class AnOnlySubclassReloadableClassSubclassingAReloadableClass
    include Reloadable::Subclasses
  end

  class ASubclassofAOnlySubclassReloadableClassWhichWasSubclassingAReloadableClass < AnOnlySubclassReloadableClassSubclassingAReloadableClass
  end
end

class ReloadableTest < Test::Unit::TestCase
  def test_classes_receive_reloadable
    assert ReloadableTestSandbox::AReloadableClass.respond_to?(:reloadable?)
  end
  def test_classes_inherit_reloadable
    assert ReloadableTestSandbox::AReloadableSubclass.respond_to?(:reloadable?)
  end
  def test_reloadable_is_not_overwritten_if_present
    assert_equal 10, ReloadableTestSandbox::AClassWhichDefinesItsOwnReloadable.reloadable?
  end

  def test_only_subclass_reloadable
    assert ! ReloadableTestSandbox::SubclassesReloadable.reloadable?
    assert ReloadableTestSandbox::ASubclassOfSubclassesReloadable.reloadable?
  end

  def test_inside_hierarchy_only_subclass_reloadable
    assert ! ReloadableTestSandbox::AnOnlySubclassReloadableClassSubclassingAReloadableClass.reloadable?
    assert ReloadableTestSandbox::ASubclassofAOnlySubclassReloadableClassWhichWasSubclassingAReloadableClass.reloadable?
  end

  def test_removable_classes
    reloadables = %w(
      AReloadableClass
      AReloadableClassWithSubclasses
      AReloadableSubclass
      AClassWhichDefinesItsOwnReloadable
      ASubclassOfSubclassesReloadable
    )
    non_reloadables = %w(
      ANonReloadableSubclass
      SubclassesReloadable
    )

    results = Reloadable.reloadable_classes
    reloadables.each do |name|
      assert results.include?(ReloadableTestSandbox.const_get(name)), "Expected #{name} to be reloadable"
    end
    non_reloadables.each do |name|
      assert ! results.include?(ReloadableTestSandbox.const_get(name)), "Expected #{name} NOT to be reloadable"
    end
  end
  
  def test_including_reloadable_should_warn
    c = Class.new
    assert_deprecated %r{Reloadable} do
      c.send :include, Reloadable
    end
    
    assert_deprecated { c.reloadable? }
  end
  
  def test_include_subclasses_should_warn
    c = Class.new
    deps = collect_deprecations do
      c.send :include, Reloadable::Subclasses
    end
    assert_equal 1, deps.size
    assert_match %r{Reloadable::Subclasses}, deps.first
    
    assert_deprecated { c.reloadable? }
  end
  
  def test_include_deprecated_should_not_warn
    c = Class.new
    deps = collect_deprecations do
      c.send :include, Reloadable::Deprecated
    end
    assert_equal 0, deps.size
    
    assert c.respond_to?(:reloadable?)
    assert_deprecated { c.reloadable? }
  end
  
end