tests/Mono/SelectCaseStatementB.vb

15         Dim errMsg As String = ""
21 …   errMsg = errMsg & "#A1 Case statement not working with Select Expression of type byte " & vbCrLf
26 …    errMsg = errMsg & "#A1 Case statement not working with Select Expression of type byte" & vbCrLf
32 …   errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
34 …   errMsg = errMsg & "#A2 Case statement not working with Select Expression of type Short" & vbCrLf
43 … errMsg = errMsg & "#A3 Case statement not working with Select Expression of type Integer" & vbCrLf
45 … errMsg = errMsg & "#A3 Case statement not working with Select Expression of type Integer" & vbCrLf
51 …    errMsg = errMsg & "#A4 Case statement not working with Select Expression of type Long" & vbCrLf
60 … errMsg = errMsg & "#A5 Case statement not working with Select Expression of type Decimal" & vbCrLf
72 …  errMsg = errMsg & "#A6 Case statement not working with Select Expression of type Single" & vbCrLf
74 …  errMsg = errMsg & "#A6 Case statement not working with Select Expression of type Single" & vbCrLf
80 …  errMsg = errMsg & "#A7 Case statement not working with Select Expression of type double" & vbCrLf
89 …  errMsg = errMsg & "#A8 Case statement not working with Select Expression of type String" & vbCrLf
94 …  errMsg = errMsg & "#A8 Case statement not working with Select Expression of type String" & vbCrLf
100 …    errMsg = errMsg & "#A9 Case statement not working with Select Expression of type Char" & vbCrLf
112 … errMsg = errMsg & "#A10 Case statement not working with Select Expression of type Object" & vbCrLf
118 …errMsg = errMsg & "#A11 Case statement not working with Select Expression of type DateTime" & vbCr…
123 …errMsg = errMsg & "#A11 Case statement not working with Select Expression of type DateTime" & vbCr…
126         If (errMsg <> "") Then
127             Throw New Exception(errMsg)