new tester; all tests categorized

1 files changed, 47 insertions, 0 deletions

diff --git a/tests/method/tmultim4.nim b/tests/method/tmultim4.nim
new file mode 100644
index 000000000..d824086b2
--- /dev/null
+++ b/tests/method/tmultim4.nim
@@ -0,0 +1,47 @@
+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
+
+
+
+