test return

TestSuite/extensionoperators2.pas

@@ -0,0 +1,19 @@
+var i: integer;
+procedure p;
+begin
+  Inc(i);
+end;
+
+procedure test(self: procedure); extensionmethod;
+begin
+  Inc(i);
+end;
+
+begin
+  var w := p * 2;
+  var w1 := w * 3;
+  w1;
+  assert(i = 6);
+  w1.test;
+  assert(i = 7);
+end.

TestSuite/parallel.pas

@@ -0,0 +1,6 @@
+begin
+var locker := new object();
+var total := 0.0;
+System.Threading.Tasks.Parallel.For(1, 1000000, procedure(i) -> begin total += sqrt(i); end);
+assert(abs(total)-456302086.334068<0.00001);
+end.