tests/method/tmultim4.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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

discard """
  file: "tmultim4.nim"
  output: "hello"
"""
type
  Test = object of TObject

method doMethod(a: ref TObject) {.base, 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