projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Sebastien Pouliot <sebastien@ximian.com>
[mono.git]
/
mcs
/
btests
/
InheritanceG.vb
1
Imports System
2
3
'Testing a class that inherits from an inner class of another class
4
5
Class C2
6
Class C3
7
Public Function F() As Integer
8
Return 1
9
End Function
10
End Class
11
End Class
12
Class C1
13
Inherits C2.C3
14
Public Function F1() As Integer
15
Return F()
16
End Function
17
End Class
18
19
Module Inheritance
20
Sub Main()
21
Dim myC As New C1()
22
Dim a As Integer=myC.F1()
23
If a<>1 Then
24
Throw New Exception("InheritanceG:Failed - Error inheriting an inner class")
25
End If
26
End Sub
27
End Module