mcs/btests/AssignmentStatementsA.vb

   1 Imports System\r
   2 \r
   3 Module AssignmentStatementsA\r
   4 \r
   5     Sub main()\r
   6         Dim i As Integer\r
   7 \r
   8         i = 2\r
   9         If i <> 2 Then\r
  10             Throw New Exception("#ASA1 - Assignment Statement failed")\r
  11         End If\r
  12 \r
  13         i = 2.3 * 3.45 / 2.3   ' Implicit type conversion\r
  14         If i <> 3 Then\r
  15             Throw New Exception("#ASA2 - Assignment Statement failed")\r
  16         End If\r
  17 \r
  18         Dim s As String = 2.3 * 3.45 / 2.3\r
  19         If s <> 3.45 Then\r
  20             Throw New Exception("#ASA3 - Assignment Statement failed")\r
  21         End If\r
  22 \r
  23         s = New Date(2004, 8, 17)\r
  24         If s <> New Date(2004, 8, 17) Then\r
  25             Throw New Exception("#ASA4 - Assignment Statement failed")\r
  26         End If\r
  27 \r
  28         If s <> "8/17/2004" Then\r
  29             Throw New Exception("#ASA5 - Assignment Statement failed")\r
  30         End If\r
  31 \r
  32         Dim obj As New Object()\r
  33         Dim obj1, obj2 As Object\r
  34         obj1 = obj\r
  35         obj2 = obj\r
  36         If Not obj1 Is obj2 Then\r
  37             Throw New Exception("#ASA6 - Assignment Statement failed")\r
  38         End If\r
  39 \r
  40         Dim obj3 As Object\r
  41         obj3 = i\r
  42         If obj3 <> 3 Then\r
  43             Throw New Exception("#ASA7 - Assignment Statement failed")\r
  44         End If\r
  45 \r
  46         i = 12\r
  47         i = obj3\r
  48         If i <> 3 Then\r
  49             Throw New Exception("#ASA8 - Assignment Statement failed")\r
  50         End If\r
  51 \r
  52     End Sub\r
  53 \r
  54 End Module\r