diff options
-rw-r--r-- | bittorrent.cabal | 1 | ||||
-rw-r--r-- | tests/Network/BitTorrent/DHT/RoutingSpec.hs | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/bittorrent.cabal b/bittorrent.cabal index 5163e1e8..aaaa6878 100644 --- a/bittorrent.cabal +++ b/bittorrent.cabal | |||
@@ -172,6 +172,7 @@ test-suite spec | |||
172 | Network.BitTorrent.Core.PeerAddrSpec | 172 | Network.BitTorrent.Core.PeerAddrSpec |
173 | Network.BitTorrent.Core.PeerIdSpec | 173 | Network.BitTorrent.Core.PeerIdSpec |
174 | Network.BitTorrent.DHT.MessageSpec | 174 | Network.BitTorrent.DHT.MessageSpec |
175 | Network.BitTorrent.DHT.RoutingSpec | ||
175 | Network.BitTorrent.Tracker.MessageSpec | 176 | Network.BitTorrent.Tracker.MessageSpec |
176 | Network.BitTorrent.Tracker.RPCSpec | 177 | Network.BitTorrent.Tracker.RPCSpec |
177 | Network.BitTorrent.Tracker.RPC.HTTPSpec | 178 | Network.BitTorrent.Tracker.RPC.HTTPSpec |
diff --git a/tests/Network/BitTorrent/DHT/RoutingSpec.hs b/tests/Network/BitTorrent/DHT/RoutingSpec.hs new file mode 100644 index 00000000..10b00ace --- /dev/null +++ b/tests/Network/BitTorrent/DHT/RoutingSpec.hs | |||
@@ -0,0 +1,12 @@ | |||
1 | module Network.BitTorrent.DHT.RoutingSpec (spec) where | ||
2 | import Data.Default | ||
3 | import Test.Hspec | ||
4 | |||
5 | import Network.BitTorrent.Core | ||
6 | import Network.BitTorrent.DHT.Routing as T | ||
7 | |||
8 | spec :: Spec | ||
9 | spec = do | ||
10 | describe "size" $ do | ||
11 | it "null table is empty" $ do | ||
12 | T.size (nullTable def :: Table IPv4) `shouldBe` 0 \ No newline at end of file | ||