From cb2039a2fac3bb71ebdfd38b2fd68a631e0d567d Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 25 Aug 2021 02:08:26 +0200
Subject: [PATCH] Add a test case for disposing a resource manager after a
delay
---
test/Quasar/DisposableSpec.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/test/Quasar/DisposableSpec.hs b/test/Quasar/DisposableSpec.hs
index b410e80..de3982d 100644
--- a/test/Quasar/DisposableSpec.hs
+++ b/test/Quasar/DisposableSpec.hs
@@ -29,6 +29,9 @@ spec = parallel $ do
it "can be created and disposed" $ do
withResourceManager \_ -> pure ()
+ it "can be created and disposed with a delay" $ do
+ withResourceManager \_ -> threadDelay 100000
+
it "can \"dispose\" a noDisposable" $ do
withResourceManager \resourceManager -> do
attachDisposable resourceManager noDisposable
--
GitLab