mcs/mbas/Test/tests/types/TypeStructureA.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 Imports System
   5
   6 Structure Somestruct
   7         Dim a as String
   8         Const b as integer = 25
   9 End Structure
  10
  11
  12 Module M
  13         Sub Main()
  14                 dim x as Somestruct
  15
  16                 x.a = 10
  17                 If x.a <> 10 then
  18                         Throw new Exception ("Expected x.a = 10 but got " & x.a)
  19                 End If
  20
  21                 dim y as Somestruct = x
  22
  23                 x.a = 20
  24                 If y.a <> 10 then
  25                         Throw new Exception ("Expected y.a = 10 but got " & y.a)
  26                 End If
  27         End Sub
  28 End Module