Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.idx
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 397)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.idx	(revision 403)
@@ -30,2 +30,4 @@
 #include "ExceptionTest.ab"
 _ClearNamespaceImported
+#include "TypeInfoTest.ab"
+_ClearNamespaceImported
Index: trunk/TestCase/SimpleTestCase/SimpleTestCase.pj
===================================================================
--- trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 397)
+++ trunk/TestCase/SimpleTestCase/SimpleTestCase.pj	(revision 403)
@@ -40,2 +40,3 @@
 InterfaceTest.ab
 ExceptionTest.ab
+TypeInfoTest.ab
Index: trunk/TestCase/SimpleTestCase/TypeInfoTest.ab
===================================================================
--- trunk/TestCase/SimpleTestCase/TypeInfoTest.ab	(revision 403)
+++ trunk/TestCase/SimpleTestCase/TypeInfoTest.ab	(revision 403)
@@ -0,0 +1,18 @@
+Namespace TypeInfoTest
+
+
+Sub TestMain()
+	Dim str As String
+	/*
+	Dim memberInfos = str.GetType().GetMembers()
+	UnitTest( "TypeInfoTest(MemberInfo) ... ", True )
+	Foreach memberInfo In memberInfos
+		UnitTest( Ex"\t" + memberInfo.Name + " As " + memberInfo.MemberType.FullName, True )
+	Next
+	*/
+End Sub
+
+
+End Namespace
+
+TypeInfoTest.TestMain()