Files
Nim/tests/method/tmultim4.nim
2014-01-13 02:10:03 +01:00

48 lines
566 B
Nim

discard """
file: "tmultim4.nim"
output: "hello"
"""
type
Test = object of TObject
method doMethod(a: ref TObject) {.raises: [EIO].} =
quit "override"
method doMethod(a: ref Test) =
echo "hello"
if a == nil:
raise newException(EIO, "arg")
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