Added new files

svn path=/trunk/mcs/; revision=38673

diff --git a/mcs/mbas/Test/errors/ChangeLog b/mcs/mbas/Test/errors/ChangeLog
index 0993bac2c7a55734a24471fd65f9b4485a11fd63..4153ce9d7725eb799c0beef8ea14c83bfa845b62 100644 (file)
--- a/mcs/mbas/Test/errors/ChangeLog
+++ b/mcs/mbas/Test/errors/ChangeLog
@@ -1,4 +1,25 @@
 
+2005-01-11 Manjula GHM <mmanjula@novell.com>
+       Added following files   
+       
+      *DefaultPropC4.vb
+      *DefaultPropC5.vb
+      *DefaultPropC6.vb
+      *DefaultPropC1.vb
+      *DefaultPropC7.vb
+      *DefaultPropC2.vb 
+      *DefaultPropC3.vb
+
+       Removed following files
+        
+        * DefaultAttrC1:
+        * DefaultAttrC2:
+        * DefaultAttrC3:
+        * DefaultAttrC4:
+        * DefaultAttrC5:
+        * DefaultAttrC6:
+                Above test cases are contributed by Sudharsan <vsudharsan@novell.com>
+
 2005-01-07 Manjula GHM <mmanjula@novell.com>
        *NameSpaceC9:
         *NameSpaceC4:

diff --git a/mcs/mbas/Test/errors/DefaultPropC1.vb b/mcs/mbas/Test/errors/DefaultPropC1.vb
new file mode 100644 (file)
index 0000000..d17d44b
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC1.vb
@@ -0,0 +1,23 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 14
+REM ExpectedError: BC31048
+REM ErrorMessage: Properties with no required parameters cannot be declared 'Default'.
+
+Imports System
+
+Class base
+       Public Default ReadOnly Property Item()As Integer
+               Get                     
+                       Return 10
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()              
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC2.vb b/mcs/mbas/Test/errors/DefaultPropC2.vb
new file mode 100644 (file)
index 0000000..88ad17e
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC2.vb
@@ -0,0 +1,28 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo:18
+REM ExpectedError: BC30361
+REM ErrorMessage: 'Public ReadOnly Property Item(i As Integer, j As Integer) As Integer' and 'Public ReadOnly Default Property Item(i As Integer) As Integer' cannot overload each other because only one is declared 'Default'.
+
+Imports System
+
+Class base
+       Public Default ReadOnly Property Item(ByVal i as Integer)As Integer
+               Get                     
+                       Return i
+               End Get
+       End Property
+       Public ReadOnly Property Item(ByVal i as Integer, ByVal j as Integer)As Integer
+               Get                     
+                       Return 2*i
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC3.vb b/mcs/mbas/Test/errors/DefaultPropC3.vb
new file mode 100644 (file)
index 0000000..ab55189
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC3.vb
@@ -0,0 +1,23 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 13 
+REM ExpectedError: BC30490
+REM ErrorMessage: 'Default' cannot be combined with 'Private'.
+
+Imports System
+
+Class base
+       Private Default ReadOnly Property Item(i as Integer)As Integer
+               Get                     
+                       Return 10
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()              
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC4.vb b/mcs/mbas/Test/errors/DefaultPropC4.vb
new file mode 100644 (file)
index 0000000..f16e622
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC4.vb
@@ -0,0 +1,23 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 13
+REM ExpectedError: BC30502
+REM ErrorMessage: 'Shared' cannot be combined with 'Default' on a property declaration.
+
+Imports System
+
+Class base
+       Shared Default ReadOnly Property Item(i as Integer)As Integer
+               Get                     
+                       Return 10
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()              
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC5.vb b/mcs/mbas/Test/errors/DefaultPropC5.vb
new file mode 100644 (file)
index 0000000..cb402d9
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC5.vb
@@ -0,0 +1,28 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 18
+REM ExpectedError: BC30359
+REM ErrorMessage: 'Default' can be applied to only one property name in a class.
+
+Imports System
+
+Class base
+       Public Default ReadOnly Property Item(ByVal i as Integer)As Integer
+               Get                     
+                       Return i
+               End Get
+       End Property
+       Public Default ReadOnly Property Item1(ByVal i as Integer)As Integer
+               Get                     
+                       Return 2*i
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC6.vb b/mcs/mbas/Test/errors/DefaultPropC6.vb
new file mode 100644 (file)
index 0000000..be1e4db
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC6.vb
@@ -0,0 +1,35 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 19
+REM ExpectedError: BC30154
+REM ErrorMessage: 'derive' must implement 'ReadOnly Default Property Item(i As Integer, j As Integer) As Integer' for interface 'base'. Implementing property must have matching 'ReadOnly'/'WriteOnly' specifiers.
+
+Imports System
+
+Interface base
+       Default ReadOnly Property Item(ByVal i as Integer)As Integer                            
+       Default ReadOnly Property Item(ByVal i as Integer, ByVal j as Integer)As Integer        
+End Interface
+
+Class derive
+       Implements base
+       Public Shadows ReadOnly Default Property Item(ByVal i as Integer)As Integer Implements base.Item
+               Get                     
+                       Return 2*i
+               End Get
+       End Property
+End Class
+
+Module DefaultA
+       Sub Main()
+               Dim a as derive=new derive()
+               Dim i as Integer        
+               i=a(10)         
+               if i<>20 Then
+                       Throw New Exception("Default Not Working")
+               End If          
+       End Sub
+End Module

diff --git a/mcs/mbas/Test/errors/DefaultPropC7.vb b/mcs/mbas/Test/errors/DefaultPropC7.vb
new file mode 100644 (file)
index 0000000..f30c35d
--- /dev/null
+++ b/mcs/mbas/Test/errors/DefaultPropC7.vb
@@ -0,0 +1,27 @@
+'Author:
+'   V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2003 Ximian, Inc.
+
+REM LineNo: 24 
+REM ExpectedError: BC30367
+REM ErrorMessage: Class 'base' cannot be indexed because it has Default property.
+
+Imports System
+
+Class base
+     ReadOnly Property Item(i as Integer)As Integer
+               Get                     
+                       Return 10
+               End Get
+     End Property
+End Class
+
+Module DefaultA
+       Sub Main()      
+       Dim i as Integer        
+       Dim a as base=new base()
+       i=a(10)
+       
+       End Sub
+End Module