# for facets/basicobject.rb

require 'facets/basicobject.rb'
require 'test/unit'

class TestBasicObject < Test::Unit::TestCase

  class A < BasicObject
  end

  def setup
    @a = A.new
  end

  def test_001
    assert( ! @a.object_class.method_defined?( :id ) )
    assert( ! @a.object_class.method_defined?( :class ) )
  end

  def test_002
    assert( @a.object_class.method_defined?( :__id__ ) )
    assert( @a.object_class.method_defined?( :__send__ ) )
    assert( @a.object_class.method_defined?( :object_self ) )
    assert( @a.object_class.method_defined?( :dup ) )
    assert( @a.object_class.method_defined?( :as ) )
  end

  def test_003
    assert_equal( A, @a.object_self.class )
  end

  def test_004
    Kernel.module_eval { def xxx ; end }
    assert( ! @a.object_class.method_defined?( :xxx ) )
  end

  def test_005
    Object.class_eval { def yyy ; end }
    assert( ! @a.object_class.method_defined?( :yyy ) )
  end

  def test_006
    Object.class_eval { def yyy ; end }
    assert( ! @a.object_self.methods.include?( 'yyy' ) )
  end

  def test_007
    Object.class_eval { def yyy ; end }
    assert( ! @a.object_class.method_defined?( :methods ) )
    assert( ! @a.object_self.methods.include?( :methods ) )
  end

end