[CO-354] Use withStaticConfigurations in CommunicationSpec and VarSpec

input-output-hk · Sep 12, 2018 · 547e635 · 547e635
1 parent 25bdea4
commit 547e635
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/generator/test/Test/Pos/Binary/CommunicationSpec.hs b/generator/test/Test/Pos/Binary/CommunicationSpec.hs
@@ -20,7 +20,7 @@ import           Pos.Util.CompileInfo (withCompileInfo)
 
 import           Test.Pos.Block.Logic.Mode (blockPropertyTestable)
 import           Test.Pos.Block.Logic.Util (EnableTxPayload (..), InplaceDB (..), bpGenBlock)
-import           Test.Pos.Configuration (HasStaticConfigurations, withProvidedMagicConfig)
+import           Test.Pos.Configuration (HasStaticConfigurations, withStaticConfigurations)
 import           Test.Pos.Crypto.Arbitrary (genProtocolMagicUniformWithRNM)
 
 -- |
@@ -84,7 +84,7 @@ runWithMagic rnm = replicateM_ testMultiple $
             specBody pm
 
 specBody :: ProtocolMagic -> Spec
-specBody pm = withProvidedMagicConfig pm $ withCompileInfo def $
+specBody pm = withStaticConfigurations $ \_ -> withCompileInfo def $
     describe "Pos.Binary.Communication" $ do
         describe "serializeMsgSerializedBlock" (serializeMsgSerializedBlockSpec pm)
         describe "decode is left inverse of serializeMsgSerializedBlock" (deserializeSerilizedMsgSerializedBlockSpec pm)
diff --git a/generator/test/Test/Pos/Block/Logic/VarSpec.hs b/generator/test/Test/Pos/Block/Logic/VarSpec.hs
@@ -46,7 +46,7 @@ import           Test.Pos.Block.Logic.Util (EnableTxPayload (..), InplaceDB (..)
                                             bpGenBlocks, bpGoToArbitraryState, getAllSecrets,
                                             satisfySlotCheck)
 import           Test.Pos.Block.Property (blockPropertySpec)
-import           Test.Pos.Configuration (HasStaticConfigurations, withProvidedMagicConfig)
+import           Test.Pos.Configuration (HasStaticConfigurations, withStaticConfigurations)
 import           Test.Pos.Crypto.Arbitrary (genProtocolMagicUniformWithRNM)
 import           Test.Pos.Util.QuickCheck.Property (splitIntoChunks, stopProperty)
 
@@ -73,7 +73,7 @@ runWithMagic rnm = replicateM_ testMultiple $
             specBody pm
 
 specBody :: ProtocolMagic -> Spec
-specBody pm = withProvidedMagicConfig pm $
+specBody pm = withStaticConfigurations $ \_ ->
     describe "Block.Logic.VAR" $ modifyMaxSuccess (min 4) $ do
         describe "verifyBlocksPrefix" (verifyBlocksPrefixSpec pm)
         describe "verifyAndApplyBlocks" (verifyAndApplyBlocksSpec pm)