From 8ce1c99d0d9ff5a8539000365ec640c88098e60f Mon Sep 17 00:00:00 2001 From: Araq Date: Fri, 13 Jul 2012 00:50:56 +0200 Subject: work on closures continues; fixed #116 --- tests/run/tclosure3.nim | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 tests/run/tclosure3.nim (limited to 'tests/run') diff --git a/tests/run/tclosure3.nim b/tests/run/tclosure3.nim new file mode 100644 index 000000000..6dee49aea --- /dev/null +++ b/tests/run/tclosure3.nim @@ -0,0 +1,21 @@ +discard """ + file: "tclosure3.nim" + output: "success" + disabled: true +""" + +proc main = + const n = 30 + for iterations in 0..50_000: + var s: seq[proc(): int {.closure.}] = @[] + for i in 0 .. n-1: + let ii = i + s.add(proc(): int = return ii*ii) + for i in 0 .. n-1: + let val = s[i]() + if val != i*i: echo "bug ", val + + if getOccupiedMem() > 3000_000: quit("still a leak!") + echo "success" + +main() -- cgit 1.4.1-2-gfad0