mcs/btests/GetType.vb

   1 Imports System
   2
   3 Module Test
   4         Sub Main
   5                 Dim s As String = GetType(String).ToString()
   6                 If s <> "System.String" Then
   7                         Throw New Exception("#A1: wrong type returned")
   8                 End If
   9                 Dim t As Type = GetType(String)
  10                 If Not t Is s.GetType() Then
  11                         Throw New Exception("#A2: wrong type returned")
  12                 End If
  13         End Sub
  14 End Module
  15
  16