summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/DHT/RoutingSpec.hs
blob: 10b00ace2435c2e1137b9fff00c457339ab36b34 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
module Network.BitTorrent.DHT.RoutingSpec (spec) where
import Data.Default
import Test.Hspec

import Network.BitTorrent.Core
import Network.BitTorrent.DHT.Routing as T

spec :: Spec
spec = do
  describe "size" $ do
    it "null table is empty" $ do
      T.size (nullTable def :: Table IPv4) `shouldBe` 0