Add spec for isActive function

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/Network/KRPCSpec.hs b/tests/Network/KRPCSpec.hs
index e695a646..0a6dc8fb 100644
--- a/tests/Network/KRPCSpec.hs
+++ b/tests/Network/KRPCSpec.hs
@@ -25,6 +25,13 @@ opts = def { optQueryTimeout = 1 }
 
 spec :: Spec
 spec = do
+  describe "manager" $ do
+    it "is active until closeManager called" $ do
+      m <- newManager opts servAddr []
+      isActive m `shouldReturn` True
+      closeManager m
+      isActive m `shouldReturn` False
+
   describe "query" $ do
     it "run handlers" $ do
       let int = 0xabcd :: Int