summary refs log tree commit diff stats
path: root/tests/tclosure.nim
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tclosure.nim')
-rwxr-xr-xtests/tclosure.nim26
1 files changed, 0 insertions, 26 deletions
diff --git a/tests/tclosure.nim b/tests/tclosure.nim
deleted file mode 100755
index 399f68463..000000000
--- a/tests/tclosure.nim
+++ /dev/null
@@ -1,26 +0,0 @@
-# Test the closure implementation
-
-proc map(n: var openarray[int], fn: proc (x: int): int {.closure}) =
-  for i in 0..n.len-1: n[i] = fn(n[i])
-
-proc foldr(n: openarray[int], fn: proc (x, y: int): int {.closure}): int =
-  for i in 0..n.len-1:
-    result = fn(result, n[i])
-
-var
-  myData: array[0..4, int] = [0, 1, 2, 3, 4]
-
-proc testA() =
-  var p = 0
-  map(myData, lambda (x: int): int =
-                result = x + 1 shl (lambda (y: int): int =
-                  return y + p
-                )(0)
-                inc(p))
-
-testA()
-for x in items(myData):
-  write(stout, x)
-#OUT 2 4 6 8 10
-
-