waalge/aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update remaining script context e2e tests.

Browse Source
This commit is contained in:
KtorZ
2024-08-16 16:34:25 +02:00
parent 7ec3f2e8df
commit fe205e360f
14 changed files with 260 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
examples/acceptance_tests/script_context/v3/validators/voting.ak
View File

@@ -2,9 +2,9 @@ use aiken/collection/list
use cardano/credential.{Script, VerificationKey}
use cardano/governance.{
Abstain, ConstitutionalCommitteeMember, DelegateRepresentative,
GovernanceActionId, No, StakePool, Yes,
GovernanceActionId, No, StakePool, Voter, Yes,
}
use cardano/transaction.{ScriptContext}
use cardano/transaction.{Transaction}
type Foo {
Foo(Int)
@@ -21,11 +21,11 @@ const only8s =
const only9s =
#"9999999999999999999999999999999999999999999999999999999999999999"
validator {
fn script(_tmp0: Data, ctx: ScriptContext) {
assert_redeemer(ctx.redeemer)
validator purposes {
vote(redeemer: Data, _voter: Voter, transaction: Transaction) {
assert_redeemer(redeemer)
let votes = ctx.transaction.votes
let votes = transaction.votes
expect Some(
Pair(ConstitutionalCommitteeMember(Script(..)),
@@ -35,14 +35,18 @@ validator {
expect
Some(
Pair(ConstitutionalCommitteeMember(VerificationKey(only0s)),
[
Pair(GovernanceActionId {
transaction: only9s,
proposal_procedure: 152,
},
No),
]),
Pair(
ConstitutionalCommitteeMember(VerificationKey(only0s)),
[
Pair(
GovernanceActionId {
transaction: only9s,
proposal_procedure: 152,
},
No,
),
],
),
) == list.at(votes, 1)
expect Some(Pair(DelegateRepresentative(Script(..)), [_, ..])) =
@@ -50,15 +54,23 @@ validator {
expect
Some(
Pair(DelegateRepresentative(VerificationKey(only0s)),
[
Pair(GovernanceActionId { transaction: only7s, proposal_procedure: 2 },
Abstain),
Pair(GovernanceActionId { transaction: only8s, proposal_procedure: 1 },
Abstain),
Pair(GovernanceActionId { transaction: only9s, proposal_procedure: 0 },
Abstain),
]),
Pair(
DelegateRepresentative(VerificationKey(only0s)),
[
Pair(
GovernanceActionId { transaction: only7s, proposal_procedure: 2 },
Abstain,
),
Pair(
GovernanceActionId { transaction: only8s, proposal_procedure: 1 },
Abstain,
),
Pair(
GovernanceActionId { transaction: only9s, proposal_procedure: 0 },
Abstain,
),
],
),
) == list.at(votes, 3)
expect Some(Pair(StakePool(pool_id), [_, ..])) = list.at(votes, 4)
@@ -66,6 +78,10 @@ validator {
True
}
else(_ctx) {
fail
}
}
fn assert_redeemer(data: Data) {