0
@@ -1 +1,25 @@
0
+class Object #:nodoc:
0
+  def remove_subclasses_of(superclass)
0
+    subclasses_of(superclass).each { |subclass| Object.send(:remove_const, subclass) rescue nil }
0
+  end
0
+
0
+  def subclasses_of(superclass)
0
+    subclasses = []
0
+    ObjectSpace.each_object(Class) do |k|
0
+      next if !k.ancestors.include?(superclass) || superclass == k || k.to_s.include?("::") || subclasses.include?(k.to_s)
0
+      subclasses << k.to_s
0
+    end
0
+    subclasses
0
+  end
0
+end
0
+
0
+class Class #:nodoc:
0
+  def remove_subclasses
0
+    Object.remove_subclasses_of(self)
0
+  end
0
+
0
+  def subclasses
0
+    Object.subclasses_of(self)
0
+  end
0
+end

0
@@ -1 +1,22 @@
0
+require 'test/unit'
0
+require File.dirname(__FILE__) + '/../../lib/core_ext/object_and_class'
0
+
0
+class A; end
0
+class B < A; end
0
+class C < B; end
0
+class D < A; end
0
+
0
+class ClassExtTest < Test::Unit::TestCase
0
+  def test_methods
0
+    assert defined?(B)
0
+    assert defined?(C)
0
+    assert defined?(D)
0
+
0
+    A.remove_subclasses
0
+
0
+    assert !defined?(B)
0
+    assert !defined?(C)
0
+    assert !defined?(D)
0
+  end
0
+end