Skip to content

Commit 18485ab

Browse files
committed
Add missing type inference test
1 parent ce56bca commit 18485ab

File tree

1 file changed

+18
-0
lines changed

1 file changed

+18
-0
lines changed

tests/IcedTasks.Tests/CancellableTaskTests.fs

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -309,6 +309,24 @@ module CancellableTaskTests =
309309
Expect.equal actual expected ""
310310
}
311311

312+
313+
testCaseAsync "Can Bind Type inference"
314+
<| async {
315+
let expected = "lol"
316+
317+
let outerTask fooTask =
318+
cancellableTask {
319+
let! result = fooTask
320+
return result
321+
}
322+
323+
let! actual =
324+
outerTask (fun ct -> Task.FromResult expected)
325+
|> Async.AwaitCancellableTask
326+
327+
Expect.equal actual expected ""
328+
}
329+
312330
]
313331

314332
testList "Zero/Combine/Delay" [

0 commit comments

Comments
 (0)