projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Updated project.
[mono.git]
/
mcs
/
btests
/
TypeOf.vb
1
Imports System
2
3
Module M
4
Class Test1
5
End Class
6
7
Class Test2
8
End Class
9
10
Sub Main
11
Dim o As Object
12
o = new Test1()
13
If Not TypeOf o Is Test1 Then
14
Throw New Exception("#A1: TypeOf failed")
15
End If
16
If TypeOf o Is Test2 Then
17
Throw New Exception("#A2: TypeOf failed")
18
End If
19
End Sub
20
End Module
21