diff --git a/TestSuite/extensionoperators2.pas b/TestSuite/extensionoperators2.pas
new file mode 100644
index 000000000..465cd5939
--- /dev/null
+++ b/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.
\ No newline at end of file
diff --git a/TestSuite/parallel.pas b/TestSuite/parallel.pas
new file mode 100644
index 000000000..638078653
--- /dev/null
+++ b/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.
\ No newline at end of file