tests/rodfiles/bmethods2.nim


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

discard """
  output: '''derived class 2
base class
'''
"""

import amethods


type
  TDerivedClass* = object of TBaseClass

proc newDerivedClass: ref TDerivedClass =
  new result

method echoType*(x: ref TDerivedClass) =
  echo "derived class 2"

var b, d: ref TBaseClass

b = newBaseClass()
d = newDerivedClass()

#b.echoType()
#d.echoType()

echoAlias d
echoAlias b