test for Task.Run

This commit is contained in:
Ivan Bondarev 2021-04-25 11:19:09 +02:00
parent 008f1f16f7
commit 8329da7aed

6
TestSuite/generics55.pas Normal file
View file

@ -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.