Add more resource manager tests (failing)

src/Quasar/PreludeExtras.hs

@@ -16,9 +16,7 @@ import Data.HashSet qualified as HS
 import Data.Hashable qualified as Hashable
 import Data.List qualified as List
 import Data.Maybe qualified as Maybe
-import GHC.Records.Compat (HasField, getField, setField)
 import GHC.Stack.Types qualified
-import GHC.TypeLits (Symbol)
 import Quasar.Utils.ExtraT
 
 io :: IO a -> IO a

test/Quasar/ResourceManagerSpec.hs

@@ -65,7 +65,20 @@ spec = parallel $ do
             liftIO $ throwIO TestException
         \TestException -> True
 
+    it "handles an exception while disposing" $ io do
+      (`shouldThrow` \(_ :: CombinedException) -> True) do
+        withRootResourceManager do
+          registerDisposeAction $ throwIO TestException
+          liftIO $ threadDelay 100000
+
     it "passes an exception to the root resource manager" $ io do
+      (`shouldThrow` \(_ :: CombinedException) -> True) do
+        withRootResourceManager do
+          withSubResourceManagerM do
+            registerDisposeAction $ throwIO TestException
+            liftIO $ threadDelay 100000
+
+    it "passes an exception to the root resource manager when closing the inner resource manager first" $ io do
       (`shouldThrow` \(_ :: CombinedException) -> True) do
         withRootResourceManager do
           withSubResourceManagerM do