diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-21 02:48:58 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-21 02:48:58 +0400 |
| commit | 76ef96ac3d5ad8d8ac3921fb0683a8e192e54090 (patch) | |
| tree | 31061c252041942294a2cb2009355decc73b0872 /tests/Network/BitTorrent/DHT/SessionSpec.hs | |
| parent | a1b4c8f9ed0034fd383cfc3d5162135fc81f49c9 (diff) | |
Rename startNode to newNode
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 |