schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

fix tests

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-09-25 22:33:29 +02:00
parent 1a0de55b8c
commit 578cc362b9
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/FediChordSpec.hs
View file

@ -7,6 +7,7 @@ import Control.Concurrent.STM.TVar
import Control.Exception import Control.Exception
import Data.ASN1.Parse (runParseASN1) import Data.ASN1.Parse (runParseASN1)
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import qualified Data.HashMap.Strict as HMap
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
import Data.Maybe (fromJust, isJust) import Data.Maybe (fromJust, isJust)
import qualified Data.Set as Set import qualified Data.Set as Set
@ -227,6 +228,7 @@ spec = do
qLoadResPayload = LoadResponsePayload qLoadResPayload = LoadResponsePayload
{ loadSum = 3.141 { loadSum = 3.141
, loadRemainingTarget = -1.337 , loadRemainingTarget = -1.337
, loadTotalCapacity = 2.21
, loadSegmentLowerBound = 12 , loadSegmentLowerBound = 12
} }
@ -238,7 +240,7 @@ spec = do
, action = undefined , action = undefined
, payload = undefined , payload = undefined
} }
requestWith senderNode a pa = mkRequest senderNode 4545 a (Just pa) $ 2342 requestWith senderNode a pa = mkRequest senderNode 4545 a (Just pa) 2342
responseWith a pa = responseTemplate {action = a, payload = Just pa} responseWith a pa = responseTemplate {action = a, payload = Just pa}
encodeDecodeAndCheck msg = runParseASN1 parseMessage (encodeMessage msg) `shouldBe` pure msg encodeDecodeAndCheck msg = runParseASN1 parseMessage (encodeMessage msg) `shouldBe` pure msg
@ -301,13 +303,13 @@ exampleNodeState = RemoteNodeState {
exampleLocalNode :: IO (LocalNodeState MockService) exampleLocalNode :: IO (LocalNodeState MockService)
exampleLocalNode = do exampleLocalNode = do
realNode <- newTVarIO $ RealNode { realNodeSTM <- newTVarIO $ RealNode {
vservers = [] vservers = HMap.empty
, nodeConfig = exampleFediConf , nodeConfig = exampleFediConf
, bootstrapNodes = confBootstrapNodes exampleFediConf , bootstrapNodes = confBootstrapNodes exampleFediConf
, nodeService = MockService , nodeService = MockService
} }
nodeStateInit realNode nodeStateInit realNodeSTM 0
exampleFediConf :: FediChordConf exampleFediConf :: FediChordConf