From 447335009ff6b762073004de1c0cab3b4372ed44 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 18 Mar 2014 18:44:42 +0400 Subject: Do not change status after Completed event --- tests/Network/BitTorrent/Tracker/SessionSpec.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'tests/Network') 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 -- cgit v1.2.3