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

add intentionally failing examples

Browse source
This commit is contained in:
Emily Martins 2022-03-16 13:55:00 +01:00
parent b58ccfd785
commit 3d76511a50
4 changed files with 77 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
agora-test/Spec/Stake.hs
View file

@ -10,7 +10,6 @@ import Test.Tasty (TestTree, testGroup)
--------------------------------------------------------------------------------
import Plutarch (compile)
import Plutarch.Builtin (pforgetData)
--------------------------------------------------------------------------------
@ -20,7 +19,7 @@ import Agora.Stake (stakePolicy)
--------------------------------------------------------------------------------
import Spec.Sample.Stake qualified as Stake
import Spec.Util (scriptTest)
import Spec.Util (policyFailsWith, policySucceedsWith)
--------------------------------------------------------------------------------
@ -28,6 +27,20 @@ tests :: [TestTree]
tests =
[ testGroup
"policy"
[ scriptTest "minting" (compile $ stakePolicy Stake.stake # pforgetData (pconstantData ()) # pconstant Stake.stakeCreation)
[ policySucceedsWith
"stakeCreation"
(stakePolicy Stake.stake)
(pforgetData (pconstantData ()))
Stake.stakeCreation
, policyFailsWith
"stakeCreationWrongDatum"
(stakePolicy Stake.stake)
(pforgetData (pconstantData ()))
Stake.stakeCreationWrongDatum
, policyFailsWith
"stakeCreationUnsigned"
(stakePolicy Stake.stake)
(pforgetData (pconstantData ()))
Stake.stakeCreationUnsigned
]
]