Test cases for Type members and Like operator

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

diff --git a/mcs/mbas/Test/tests/ConstantC.vb b/mcs/mbas/Test/tests/ConstantC.vb
new file mode 100755 (executable)
index 0000000..60fb156
--- /dev/null
+++ b/mcs/mbas/Test/tests/ConstantC.vb
@@ -0,0 +1,19 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Checking on all possible acessors on const\r
+Imports System\r
+\r
+Module Test\r
+       Const a as Integer = 1\r
+       Public Const a1 as Integer = 1\r
+       Private Const a2 as Integer = 1\r
+       Class C\r
+               Protected Const a3 as Integer = 1\r
+       End Class\r
+       Public Sub Main()                                               \r
+       End Sub\r
+End Module\r
+\r