repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
**** Merged from MCS ****
[mono-project.git]
/
mcs
/
btests
/
GetType.vb
blob
671035e46414142a24b42bde2cbc1b342bc91142
1
Imports System
2
3
Module
Test
4
Sub
Main
5
Dim
s
As
String
=
GetType
(
String
).
ToString
()
6
If
s
<>
"System.String"
Then
7
Throw
New
Exception
(
"#A1: wrong type returned"
)
8
End If
9
Dim
t
As Type
=
GetType
(
String
)
10
If Not
t Is s
.
GetType
()
Then
11
Throw
New
Exception
(
"#A2: wrong type returned"
)
12
End If
13
End Sub
14
End Module
15
16