mcs/btests/IntegerLiteral2Test.vb

   1 imports System
   2
   3 Module IntegerLiteral2Test\r
   4     Sub main()\r
   5         Try
   6             Dim i As Integer\r
   7             i = &H2B\r
   8             If (i <> 43) Then\r
   9                 Throw New Exception("#A1 : Unexpected behaviour")\r
  10             End If\r
  11 \r
  12             i = &O35\r
  13             If (i <> 29) Then\r
  14                 Throw New Exception("#A2 : Unexpected behaviour")\r
  15             End If\r
  16
  17         Catch e As Exception\r
  18             Console.WriteLine(e.Message)\r
  19         End Try\r
  20     End Sub\r
  21 End Module