source:
trunk/TestCase/SimpleTestCase/TypeInfoTest.ab@
447
Last change on this file since 447 was 413, checked in by , 16 years ago | |
---|---|
File size: 353 bytes |
Rev | Line | |
---|---|---|
[403] | 1 | Namespace TypeInfoTest |
2 | ||
3 | ||
4 | Sub TestMain() | |
5 | Dim str As String | |
[413] | 6 | |
[403] | 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 | |
[413] | 12 | |
[403] | 13 | End Sub |
14 | ||
15 | ||
16 | End Namespace | |
17 | ||
18 | TypeInfoTest.TestMain() |
Note:
See TracBrowser
for help on using the repository browser.