2004-08-07 Bernie Solomon <bernard@ugsolutions.com>

	* GetType.vb:
	* Test.sources: add a test for GetType

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

diff --git a/mcs/btests/ChangeLog b/mcs/btests/ChangeLog
index 4e8ef0d3b0dd3dade8af9b3b77a90b799dccdd3b..d9c02c049f8cf5314f8b04500817aa975abda68e 100644 (file)
--- a/mcs/btests/ChangeLog
+++ b/mcs/btests/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-07 Bernie Solomon <bernard@ugsolutions.com>
+       * GetType.vb:
+       * Test.sources: add a test for GetType
+
 2004-08-06 Bernie Solomon <bernard@Ugsolutions.com>
 
        * Dll1.vb:

diff --git a/mcs/btests/GetType.vb b/mcs/btests/GetType.vb
new file mode 100644 (file)
index 0000000..671035e
--- /dev/null
+++ b/mcs/btests/GetType.vb
@@ -0,0 +1,16 @@
+Imports System
+
+Module Test
+       Sub Main
+               Dim s As String = GetType(String).ToString()
+               If s <> "System.String" Then
+                       Throw New Exception("#A1: wrong type returned")
+               End If
+               Dim t As Type = GetType(String)
+               If Not t Is s.GetType() Then
+                       Throw New Exception("#A2: wrong type returned")
+               End If
+       End Sub
+End Module
+
+