blob: e032e27d59d42d906acd63965e3fb7a10b7a7b9c (
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 2 :: Table IPv4) `shouldBe` 0
|
