Move to new home

[mono.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 6418.vb

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/6418.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/6418.vb
deleted file mode 100644 (file)
index e1025bd..0000000
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/6418.vb
+++ /dev/null
@@ -1,36 +0,0 @@
-  '
-  ' Copyright (c) 2002-2003 Mainsoft Corporation.
-  '
-  ' Permission is hereby granted, free of charge, to any person obtaining a
-  ' copy of this software and associated documentation files (the "Software"),
-  ' to deal in the Software without restriction, including without limitation
-  ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
-  ' and/or sell copies of the Software, and to permit persons to whom the
-  ' Software is furnished to do so, subject to the following conditions:
-  ' 
-  ' The above copyright notice and this permission notice shall be included in
-  ' all copies or substantial portions of the Software.
-  ' 
-  ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-  ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-  ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-  ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-  ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-  ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-  ' DEALINGS IN THE SOFTWARE.
-  '
-Imports Microsoft.VisualBasic.Collection
-Public Class TestClass
-    Public Function Test() As Integer
-        'BeginCode
-        Dim oDT As New CBase()
-        Dim col As New Microsoft.VisualBasic.Collection()
-        col.Add(oDT)
-        col.Add(oDT)
-        col.Add(oDT)
-        Return col.Count
-        'EndCode
-    End Function
-End Class
-Public Class CBase
-End Class
\ No newline at end of file