Files
Nim/tests/run/tmultim4.nim
2011-11-19 15:45:51 +01:00

46 lines
498 B
Nim
Executable File

discard """
file: "tmultim4.nim"
output: "hello"
"""
type
Test = object of TObject
method doMethod(a: ref TObject) =
quit "override"
method doMethod(a: ref Test) =
echo "hello"
proc doProc(a: ref Test) =
echo "hello"
proc newTest(): ref Test =
new(result)
var s:ref Test = newTest()
#doesn't work
for z in 1..4:
s.doMethod()
break
#works
#for z in 1..4:
# s.doProc()
# break
#works
#while true:
# s.doMethod()
# break
#works
#while true:
# s.doProc()
# break