13 lines
396 B
Haskell
13 lines
396 B
Haskell
module Main (main) where
|
|
|
|
import Test.Hspec
|
|
|
|
import Hash2Pub.FediChord
|
|
|
|
main :: IO ()
|
|
main = hspec $ do
|
|
describe "NodeID" $ do
|
|
it "can store a numeral ID" $ do
|
|
getNodeID (mkNodeID 2342) `shouldBe` 2342
|
|
it "computes ID values within the modular bounds" $ do
|
|
getNodeID ((maxBound :: NodeID) + mkNodeID 2) < getNodeID (maxBound :: NodeID) `shouldBe` True
|