Added VB runtime tests

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

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