Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Removed Apropos

Browse source
This commit is contained in:
Seungheon Oh 2022-05-31 12:32:12 -05:00
parent 8c312a46bd
commit 339dad0165
5 changed files with 1060 additions and 1980 deletions
Download patch file Download diff file Expand all files Collapse all files

6
agora-specs/Property/MultiSig.hs
View file

@ -28,7 +28,7 @@ import Plutus.V1.Ledger.Api (
ScriptContext (scriptContextTxInfo),
TxInfo (txInfoSignatories),
)
import Spec.Generator (genAnyValue, genPubKeyHash)
import Property.Generator (genAnyValue, genPubKeyHash)
import Test.Tasty (TestTree)
import Test.Tasty.Plutarch.Property (classifiedProperty)
import Test.Tasty.QuickCheck (
@ -40,7 +40,7 @@ import Test.Tasty.QuickCheck (
vectorOf,
)
-- | apropos model for testing multisigs.
-- | Model for testing multisigs.
type MultiSigModel = (MultiSig, ScriptContext)
-- | Propositions that may hold true of a `MultiSigModel`.
@ -63,7 +63,7 @@ genMultiSigProp :: MultiSigProp -> Gen MultiSigModel
genMultiSigProp prop = do
size <- chooseInt (4, 20)
pkhs <- vectorOf size genPubKeyHash
vutxo <- pure . ValidatorUTXO () <$> genAnyValue
vutxo <- ValidatorUTXO () <$> genAnyValue
minSig <- chooseInt (1, length pkhs)
othersigners <- take 20 <$> listOf genPubKeyHash