source:
trunk/TestCase/SimpleTestCase/TypeInfoTest.ab@
413
| Last change on this file since 413 was 413, checked in by , 16 years ago | |
|---|---|
| File size: 353 bytes | |
| Line | |
|---|---|
| 1 | Namespace TypeInfoTest |
| 2 | |
| 3 | |
| 4 | Sub TestMain() |
| 5 | Dim str As String |
| 6 | |
| 7 | Dim memberInfos = str.GetType().GetMembers() |
| 8 | UnitTest( "TypeInfoTest(MemberInfo) ... ", True ) |
| 9 | Foreach memberInfo In memberInfos |
| 10 | UnitTest( Ex"\t" + memberInfo.Name + " As " + memberInfo.MemberType.FullName, True ) |
| 11 | Next |
| 12 | |
| 13 | End Sub |
| 14 | |
| 15 | |
| 16 | End Namespace |
| 17 | |
| 18 | TypeInfoTest.TestMain() |
Note:
See TracBrowser
for help on using the repository browser.
