Do not change status after Completed event

1 files changed, 12 insertions, 0 deletions

diff --git a/tests/Network/BitTorrent/Tracker/SessionSpec.hs b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
index 27a9ae1e..2c471752 100644
--- a/tests/Network/BitTorrent/Tracker/SessionSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
@@ -42,6 +42,18 @@ spec = do
         stopped <- getStatus s
         stopped `shouldBe` Paused
 
+    it "completed event do not change status" $ do
+      testSession True $ \ m s -> do
+        notify m s Completed
+        status <- getStatus s
+        status `shouldBe` Paused
+
+      testSession True $ \ m s -> do
+        notify m s Started
+        notify m s Completed
+        status <- getStatus s
+        status `shouldBe` Running
+
     it "return non-empty list of peers" $ do
       testSession False $ \ m s -> do
         notify m s Started