**** Merged from MCS ****
[mono-project.git] / mcs / mbas / testsuite / enum_struct_test.vb
blobc7dbd173b7a5a3598023472802b0bf18732f561b
1 Imports System
2 Imports TestUtils
4 Enum MemberType
5 Lions
6 Pythons
7 Jackals
8 Eagles
9 End Enum
11 Structure ClubMember
12 Public Name As String
13 Public Age As Integer
14 Public Group As MemberType
15 End Structure
18 Module Test
19 Sub Main()
20 Dim a As ClubMember
22 a.Name = "John"
23 a.Age = 13
24 a.Group = MemberType.Eagles
26 Dim b As ClubMember = a
27 b.Age = 17
28 Dim s As String = String.Format("Member {0} is {1} years old and belongs to the group of {2}", _
29 a.Name, a.Age, a.Group)
31 Console.WriteLine(TestUtils.GenerateHash (s))
32 End Sub
33 End Module