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

simple fixes suggested from review

Browse source
This commit is contained in:
Seungheon Oh 2022-04-22 08:23:54 -04:00
parent 11a10bd4ec
commit 17817ba68b
2 changed files with 18 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -142,13 +142,7 @@ effectSucceedsWith ::
ScriptContext ->
TestTree
effectSucceedsWith tag eff datum scriptContext =
scriptSucceeds tag $
compile
( eff
# pforgetData (pconstantData datum)
# pforgetData (pconstantData ())
# pconstant scriptContext
)
validatorSucceedsWith tag eff datum () scriptContext
-- | Check that a validator script fails, given a name and arguments.
effectFailsWith ::
@ -161,14 +155,8 @@ effectFailsWith ::
ScriptContext ->
TestTree
effectFailsWith tag eff datum scriptContext =
scriptFails tag $
compile
( eff
# pforgetData (pconstantData datum)
# pforgetData (pconstantData ())
# pconstant scriptContext
)
validatorFailsWith tag eff datum () scriptContext
-- | Check that an arbitrary script doesn't error when evaluated, given a name.
scriptSucceeds :: String -> Script -> TestTree
scriptSucceeds name script = testCase name $ do