source:
trunk/ab5.0/ablib/TestCase/SimpleTestCase/TypeInfoTest.ab@
576
Last change on this file since 576 was 413, checked in by , 17 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.