From 8329da7aedcd981a06cd28fb1b4b8cb308b6561a Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 25 Apr 2021 11:19:09 +0200
Subject: [PATCH] test for Task.Run

---
 TestSuite/generics55.pas | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 TestSuite/generics55.pas

diff --git a/TestSuite/generics55.pas b/TestSuite/generics55.pas
new file mode 100644
index 000000000..a843c6ed5
--- /dev/null
+++ b/TestSuite/generics55.pas
@@ -0,0 +1,6 @@
+begin
+  var f: function: byte := ()->byte(2);
+  var t := System.Threading.Tasks.Task&<byte>.Run(f);
+  t.Wait();
+  assert(t.Result = 2);
+end.
\ No newline at end of file