improvements for destructors

1 files changed, 26 insertions, 0 deletions

diff --git a/tests/run/tdestructor.nim b/tests/run/tdestructor.nim
new file mode 100644
index 000000000..8aae2fce2
--- /dev/null
+++ b/tests/run/tdestructor.nim
@@ -0,0 +1,26 @@
+discard """
+  output: '''some text
+Destructor called!'''
+"""
+
+type
+  TMyObj = object
+    x, y: int
+    p: pointer
+    
+proc destruct(o: var TMyObj) {.destructor.} =
+  if o.p != nil: dealloc o.p
+  echo "Destructor called!"
+  
+proc open: TMyObj =
+  # allow for superfluous ()
+  result = (TMyObj(x: 1, y: 2, p: alloc(3)))
+
+
+proc `$`(x: TMyObj): string = $x.y
+
+proc main() =
+  var x = open()
+  echo "some text"
+
+main()