Sulkta-Coop/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix compilation errors

Browse source
This commit is contained in:
Hongrui Fang 2022-08-03 20:59:37 +08:00
parent 14aacf206f
commit f248dbab49
No known key found for this signature in database
GPG key ID: 1E0454204FC7D755
36 changed files with 1325 additions and 1271 deletions
Download patch file Download diff file Expand all files Collapse all files

9
agora-testlib/Test/Specification.hs
View file

@ -52,6 +52,7 @@ module Test.Specification (
import Plutarch.Api.V1 (PMintingPolicy, PValidator)
import Plutarch.Builtin (pforgetData)
import Plutarch.Evaluate (evalScript)
import Plutarch.Extra.Compile (mustCompile)
import Plutarch.Lift (PUnsafeLiftDecl (PLifted))
import PlutusLedgerApi.V1 (Script, ScriptContext)
import PlutusTx.IsData qualified as PlutusTx (ToData)
@ -164,7 +165,7 @@ policySucceedsWith ::
SpecificationTree
policySucceedsWith tag policy redeemer scriptContext =
scriptSucceeds tag $
compile
mustCompile
( policy
# pforgetData (pconstantData redeemer)
# pconstant scriptContext
@ -182,7 +183,7 @@ policyFailsWith ::
SpecificationTree
policyFailsWith tag policy redeemer scriptContext =
scriptFails tag $
compile
mustCompile
( policy
# pforgetData (pconstantData redeemer)
# pconstant scriptContext
@ -203,7 +204,7 @@ validatorSucceedsWith ::
SpecificationTree
validatorSucceedsWith tag validator datum redeemer scriptContext =
scriptSucceeds tag $
compile
mustCompile
( validator
# pforgetData (pconstantData datum)
# pforgetData (pconstantData redeemer)
@ -225,7 +226,7 @@ validatorFailsWith ::
SpecificationTree
validatorFailsWith tag validator datum redeemer scriptContext =
scriptFails tag $
compile
mustCompile
( validator
# pforgetData (pconstantData datum)
# pforgetData (pconstantData redeemer)