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

inited tr tests

Browse source
This commit is contained in:
Jack Hodgkinson 2022-03-18 10:59:46 +00:00
parent b135d8f0b2
commit 131806f9a7
3 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora-test/Spec/Util.hs
View file

@ -24,7 +24,12 @@ import Plutus.V1.Ledger.Scripts (Script)
--------------------------------------------------------------------------------
policySucceedsWith :: String -> ClosedTerm PMintingPolicy -> ClosedTerm PData -> _ -> TestTree
policySucceedsWith ::
String ->
ClosedTerm PMintingPolicy ->
ClosedTerm PData ->
_ ->
TestTree
policySucceedsWith tag policy redeemer scriptContext =
scriptSucceeds tag $ compile (policy # redeemer # pconstant scriptContext)