diff options
Diffstat (limited to 'tests/Network/BitTorrent/DHT/SessionSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/DHT/SessionSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs index 41852763..b3b9a9fc 100644 --- a/tests/Network/BitTorrent/DHT/SessionSpec.hs +++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs | |||
@@ -39,10 +39,10 @@ spec :: Spec | |||
39 | spec = do | 39 | spec = do |
40 | describe "session" $ do | 40 | describe "session" $ do |
41 | it "is active until stopNode called" $ do | 41 | it "is active until stopNode called" $ do |
42 | node <- startNode [] def myAddr nullLogger | 42 | node <- newNode [] def myAddr nullLogger |
43 | runDHT node monadActive `shouldReturn` True | 43 | runDHT node monadActive `shouldReturn` True |
44 | runDHT node monadActive `shouldReturn` True | 44 | runDHT node monadActive `shouldReturn` True |
45 | stopNode node | 45 | closeNode node |
46 | runDHT node monadActive `shouldReturn` False | 46 | runDHT node monadActive `shouldReturn` False |
47 | 47 | ||
48 | describe "tokens" $ do | 48 | describe "tokens" $ do |