assert 'Class#subclasses' do
  a = Class.new
  b = Class.new(a)
  c = Class.new(b)
  d = Class.new(a)

  a_sub = a.subclasses
  assert_equal(2, a_sub.size)
  assert_true(a_sub.include?(b))
  assert_true(a_sub.include?(d))
  assert_equal([c], b.subclasses)
  assert_equal([], c.subclasses)
end

assert 'Class#attached_object' do
  foo = Class.new
  foo_s = class <<foo
    foo_s = self
  end
  assert_equal(foo, foo_s.attached_object)
  fooi = foo.new
  fooi_s = class <<fooi
    fooi_s = self
  end
  assert_equal(fooi, fooi_s.attached_object)
  assert_raise(TypeError){foo.attached_object}
  assert_raise(TypeError){TrueClass.attached_object}
  assert_raise(TypeError){NilClass.attached_object}
end