From 3c725fceee68d042542f248d8505a53891c41ef9 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 25 Aug 2021 03:16:50 +0200
Subject: [PATCH] Simplify and re-enable async timeout test
---
test/Quasar/AsyncSpec.hs | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/test/Quasar/AsyncSpec.hs b/test/Quasar/AsyncSpec.hs
index 6be9c58..f6c0a1f 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
--
GitLab