From a1da2b713bccbf9555f087caeb4e093e445952f5 Mon Sep 17 00:00:00 2001
From: Grzegorz Adam Hankiewicz <gradha@imap.cc>
Date: Sun, 16 Jun 2013 22:35:54 +0200
Subject: Adds idetools hierarchy nesting test.

---
 tests/caas/absurd_nesting.nim | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 tests/caas/absurd_nesting.nim

(limited to 'tests/caas/absurd_nesting.nim')

diff --git a/tests/caas/absurd_nesting.nim b/tests/caas/absurd_nesting.nim
new file mode 100644
index 000000000..136d65cc7
--- /dev/null
+++ b/tests/caas/absurd_nesting.nim
@@ -0,0 +1,29 @@
+# Tries to test the full ownership path generated by idetools.
+
+proc lev1(t1: string) =
+  var temp = t1
+  for i in 0..len(temp)-1:
+    temp[i] = chr(int(temp[i]) + 1)
+
+  proc lev2(t2: string) =
+    var temp = t2
+    for i in 0..len(temp)-1:
+      temp[i] = chr(int(temp[i]) + 1)
+
+    proc lev3(t3: string) =
+      var temp = t3
+      for i in 0..len(temp)-1:
+        temp[i] = chr(int(temp[i]) + 1)
+
+      proc lev4(t4: string) =
+        var temp = t4
+        for i in 0..len(temp)-1:
+          temp[i] = chr(int(temp[i]) + 1)
+
+        echo temp & "(lev4)"
+      lev4(temp & "(lev3)")
+    lev3(temp & "(lev2)")
+  lev2(temp & "(lev1)")
+
+when isMainModule:
+  lev1("abcd")
-- 
cgit 1.4.1-2-gfad0