From ea6ebe590d742ee0a2122c7743de50364ca20f9e Mon Sep 17 00:00:00 2001 From: Trolli Schmittlauch Date: Wed, 1 Apr 2020 13:26:42 +0200 Subject: [PATCH] adjust tests to new NodeState --- Hash2Pub/test/FediChordSpec.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Hash2Pub/test/FediChordSpec.hs b/Hash2Pub/test/FediChordSpec.hs index 2cc0345..a1d6fee 100644 --- a/Hash2Pub/test/FediChordSpec.hs +++ b/Hash2Pub/test/FediChordSpec.hs @@ -33,7 +33,7 @@ spec = do -- edge cases (toNodeID 5001 - toNodeID 2^(255::Integer) < 5001) `shouldBe` True (toNodeID 5001 - toNodeID 2^(255::Integer) - 1) < 5001 `shouldBe` False - it "throws an exception when @toNodeID@ on out-of-bound values" $ + it "throws an exception when @toNodeID@ on out-of-bound values" pending it "can be generated" $ do genNodeIDBS ip nodeDomain vs `shouldBe` "\ACK\211\183&S\GS\214\247Xn8\216\232\195\247\162\182\253\210\SOHG7I\194\251\196\130\142RSx\219" @@ -64,6 +64,7 @@ spec = do , kNeighbours = 3 , lNumBestNodes = 3 , pNumParallelQueries = 2 + , jEntriesPerSlice = 2 } print ns it "can be initialised partly and then modified later" $ do @@ -79,6 +80,7 @@ spec = do , kNeighbours = 3 , lNumBestNodes = 3 , pNumParallelQueries = 2 + , jEntriesPerSlice = 2 } nsReady = ns { nid = genNodeID (ipAddr ns) (domain ns) 3