From c48e2da6dac04b517412433d2b1327bf5acca98e Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 6 Oct 2021 02:25:32 +0200
Subject: [PATCH] Add test to check if resource manager starts disposing on
exception
---
test/Quasar/ResourceManagerSpec.hs | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/test/Quasar/ResourceManagerSpec.hs b/test/Quasar/ResourceManagerSpec.hs
index ab8445b..bd0689d 100644
--- a/test/Quasar/ResourceManagerSpec.hs
+++ b/test/Quasar/ResourceManagerSpec.hs
@@ -100,3 +100,11 @@ spec = parallel $ do
registerDisposeAction $ pure () <$ (atomically (writeTVar var2 True))
atomically (readTVar var1) `shouldReturn` True
atomically (readTVar var2) `shouldReturn` True
+
+ it "withRootResourceManager will start disposing when receiving an exception" $ io do
+ (`shouldThrow` \(_ :: CombinedException) -> True) do
+ withRootResourceManager do
+ linkExecution do
+ rm <- askResourceManager
+ liftIO $ throwToResourceManager rm TestException
+ sleepForever
--
GitLab