mcs/mbas/Test/tests/ModuleTest.vb

   1 Imports System
   2 Module ModuleTest
   3         Dim a As Integer=30
   4         Sub Main()
   5                 Dim a As Integer
   6                 If a<>0 Then
   7                         Throw New Exception("#A1: Module:Failed")
   8                 End If
   9                 If ModuleTest.a<>30 Then
  10                         Throw New Exception("#A2: Module: Failed")
  11                 End If
  12         End Sub
  13 End Module