diff --git a/test/Quasar/AsyncSpec.hs b/test/Quasar/AsyncSpec.hs index 6be9c5833fcecc8f6dd57dd911d654a19385e84d..f6c0a1fa587b1e6758ad9d9e395d34c9d97f9164 100644 --- a/test/Quasar/AsyncSpec.hs +++ b/test/Quasar/AsyncSpec.hs @@ -56,10 +56,9 @@ spec = parallel $ do putAsyncVar_ avar () withDefaultAsyncManager (await avar >>= pure) - xit "can terminate when encountering an asynchronous exception" $ do + it "can terminate when encountering an asynchronous exception" $ do never <- newAsyncVar :: IO (AsyncVar ()) result <- timeout 100000 $ withDefaultAsyncManager $ - -- Use bind to create an AsyncIOPlumbing, which is the interesting case that uses `uninterruptibleMask` when run - await never >>= pure + await never result `shouldBe` Nothing