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

use Credential instead of PubKeyHash everywhere

Browse source
This commit is contained in:
Emily Martins 2022-08-16 15:02:50 +02:00
parent 367a630cef
commit f730998326
15 changed files with 948 additions and 865 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora-specs/Spec/Stake.hs
View file

@ -16,6 +16,7 @@ import Agora.Stake (
)
import Data.Bool (Bool (..))
import Data.Maybe (Maybe (..))
import PlutusLedgerApi.V1 (Credential (PubKeyCredential))
import Sample.Shared (agoraScripts)
import Sample.Stake (
DepositWithdrawExample (
@ -68,19 +69,19 @@ specs =
[ validatorSucceedsWith
"stakeDepositWithdraw deposit"
agoraScripts.compiledStakeValidator
(StakeDatum 100_000 signer Nothing [])
(StakeDatum 100_000 (PubKeyCredential signer) Nothing [])
(DepositWithdraw 100_000)
(Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = 100_000})
, validatorSucceedsWith
"stakeDepositWithdraw withdraw"
agoraScripts.compiledStakeValidator
(StakeDatum 100_000 signer Nothing [])
(StakeDatum 100_000 (PubKeyCredential signer) Nothing [])
(DepositWithdraw $ negate 100_000)
(Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = negate 100_000})
, validatorFailsWith
"stakeDepositWithdraw negative GT"
agoraScripts.compiledStakeValidator
(StakeDatum 100_000 signer Nothing [])
(StakeDatum 100_000 (PubKeyCredential signer) Nothing [])
(DepositWithdraw 1_000_000)
(Stake.stakeDepositWithdraw $ DepositWithdrawExample {startAmount = 100_000, delta = negate 1_000_000})
, group