new tester; all tests categorized

tests/procvar/tgenericprocvar.nim

@@ -0,0 +1,5 @@
+proc foo[T](thing: T) =
+    discard thing
+
+var a: proc (thing: int) {.nimcall.} = foo[int]
+

tests/procvar/tprocvar.nim

@@ -0,0 +1,18 @@
+discard """
+  errormsg: "type mismatch"
+  line: 17
+  file: "tprocvar.nim"
+"""
+
+type
+  TCallback = proc (a, b: int)
+
+proc huh(x, y: var int) =
+  x = 0
+  y = x+1
+
+proc so(c: TCallback) =
+  c(2, 4)
+  
+so(huh)
+

tests/procvar/tprocvar2.nim

@@ -0,0 +1,32 @@
+discard """
+  file: "tprocvar.nim"
+  output: "papbpcpdpe7"
+"""
+# test variables of type proc
+
+proc pa() {.cdecl.} = write(stdout, "pa")
+proc pb() {.cdecl.} = write(stdout, "pb")
+proc pc() {.cdecl.} = write(stdout, "pc")
+proc pd() {.cdecl.} = write(stdout, "pd")
+proc pe() {.cdecl.} = write(stdout, "pe")
+
+const
+  algos = [pa, pb, pc, pd, pe]
+
+var
+  x: proc (a, b: int): int {.cdecl.}
+
+proc ha(c, d: int): int {.cdecl.} =
+  echo(c + d)
+  result = c + d
+
+for a in items(algos):
+  a()
+
+x = ha
+discard x(3, 4)
+
+#OUT papbpcpdpe7
+
+
+

tests/procvar/tprocvars.nim

@@ -0,0 +1,6 @@
+proc doSomething(v: Int, x: proc(v:Int):Int): Int = return x(v)
+proc doSomething(v: Int, x: proc(v:Int)) = x(v)
+
+
+echo doSomething(10, proc(v: Int): Int = return v div 2)
+