diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-05 00:35:47 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-05 00:35:47 +0400 |
| commit | 3c7f12c10caca196a970c0cc8b6c46945c9dee58 (patch) | |
| tree | e5a4f8d2d29828ecee64c18881322a3cb7602b93 /tests/Network/BitTorrent/DHT/QuerySpec.hs | |
| parent | 6794c6843e625a3b61fec48e54167a13f5fd093b (diff) | |
Minor refactoring
Diffstat (limited to 'tests/Network/BitTorrent/DHT/QuerySpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/DHT/QuerySpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/DHT/QuerySpec.hs b/tests/Network/BitTorrent/DHT/QuerySpec.hs index 33114b40..d25bd120 100644 --- a/tests/Network/BitTorrent/DHT/QuerySpec.hs +++ b/tests/Network/BitTorrent/DHT/QuerySpec.hs | |||
| @@ -18,7 +18,7 @@ import Network.BitTorrent.DHT.TestData | |||
| 18 | 18 | ||
| 19 | 19 | ||
| 20 | myAddr :: NodeAddr IPv4 | 20 | myAddr :: NodeAddr IPv4 |
| 21 | myAddr = "0.0.0.0:8000" | 21 | myAddr = "0.0.0.0:0" |
| 22 | 22 | ||
| 23 | nullLogger :: LogFun | 23 | nullLogger :: LogFun |
| 24 | nullLogger _ _ _ _ = return () | 24 | nullLogger _ _ _ _ = return () |
| @@ -37,7 +37,7 @@ getBootInfo = do | |||
| 37 | simpleDHT [] $ pingQ startAddr | 37 | simpleDHT [] $ pingQ startAddr |
| 38 | 38 | ||
| 39 | spec :: Spec | 39 | spec :: Spec |
| 40 | spec = do | 40 | spec = parallel $ do |
| 41 | describe "environment" $ do | 41 | describe "environment" $ do |
| 42 | describe "test node" $ do | 42 | describe "test node" $ do |
| 43 | it "is alive" $ do | 43 | it "is alive" $ do |