Index: /TestCase/SimpleTestCase/ObjectTest.ab
===================================================================
--- /TestCase/SimpleTestCase/ObjectTest.ab	(revision 225)
+++ /TestCase/SimpleTestCase/ObjectTest.ab	(revision 225)
@@ -0,0 +1,24 @@
+'--------------------------------------------------------------------
+' Test case of Object Class
+'--------------------------------------------------------------------
+
+Namespace ObjectTest
+
+	Dim obj1 As Object
+	Dim obj2 As Object
+
+	UnitTest( "Object.Equals(case 1)", obj1.Equals( obj1 ) )
+	UnitTest( "Object.Equals(case 2)", obj1.Equals( obj2 ) = False )
+
+	UnitTest( "Object.ReferenceEquals(case 1)", Object.ReferenceEquals( obj1, obj2 ) = False )
+	Dim obj3 = obj1
+	UnitTest( "Object.ReferenceEquals(case 2)", Object.ReferenceEquals( obj1, obj3 ) )
+
+	' TODO: ObjPtr関数の実装を待つ
+	'UnitTest( "Object.GetHashCode", obj1.GetHashCode() = ObjPtr( obj1 ) )
+
+	UnitTest( "Object.ToString", obj1.ToString() = "Object" )
+
+	UnitTest( "Object.GetType", obj1.GetType().Name = "Object" )
+
+End Namespace