test for Task.Run
This commit is contained in:
parent
008f1f16f7
commit
8329da7aed
6
TestSuite/generics55.pas
Normal file
6
TestSuite/generics55.pas
Normal 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.
|
||||
Loading…
Reference in a new issue