Migrating mbas test cases from mcs/btests to mcs/mbas/Test folder.

[mono.git] / mcs / mbas / Test / tests / ModuleTest.vb

diff --git a/mcs/mbas/Test/tests/ModuleTest.vb b/mcs/mbas/Test/tests/ModuleTest.vb
new file mode 100755 (executable)
index 0000000..a968f62
--- /dev/null
+++ b/mcs/mbas/Test/tests/ModuleTest.vb
@@ -0,0 +1,13 @@
+Imports System
+Module ModuleTest
+       Dim a As Integer=30
+       Sub Main()
+               Dim a As Integer
+               If a<>0 Then    
+                       Throw New Exception("#A1: Module:Failed")
+               End If  
+               If ModuleTest.a<>30 Then
+                       Throw New Exception("#A2: Module: Failed")
+               End If
+       End Sub
+End Module