1091eba3c3
Temporarily using the 'specialize-dict-key' branch from the stdlib which makes use of Pair where relevant. Once this is merged back into 'main' we should update the acceptance test toml files to keep getting them automatically upgraded. This commit also fixes an oversight in the reification of data-types now properly distinguishing between pairs and 2-tuples. Co-authored-by: Microproofs <kasey.white@cardanofoundation.org>
38 lines
1003 B
Plaintext
38 lines
1003 B
Plaintext
use aiken/list
|
|
use aiken/transaction.{ScriptContext}
|
|
use aiken/transaction/credential.{
|
|
Inline, ScriptCredential, VerificationKeyCredential,
|
|
}
|
|
|
|
validator {
|
|
fn spend(_datum: Void, _redeemer: Void, ctx: ScriptContext) {
|
|
let alice =
|
|
Inline(
|
|
VerificationKeyCredential(
|
|
#"22222222222222222222222222222222222222222222222222222222",
|
|
),
|
|
)
|
|
|
|
let bob =
|
|
Inline(
|
|
ScriptCredential(
|
|
#"afddc16c18e7d8de379fb9aad39b3d1b5afd27603e5ebac818432a72",
|
|
),
|
|
)
|
|
|
|
and {
|
|
when
|
|
list.find(ctx.transaction.withdrawals, fn(kv) { kv.1st == alice })
|
|
is {
|
|
None -> fail @"alice's withdrawal not found"
|
|
Some(value) -> value.2nd == 42
|
|
},
|
|
when list.find(ctx.transaction.withdrawals, fn(kv) { kv.1st == bob }) is {
|
|
None -> fail @"bob's withdrawal not found"
|
|
Some(value) -> value.2nd == 14
|
|
},
|
|
list.map(ctx.transaction.withdrawals, fn(kv) { kv.1st }) == [alice, bob],
|
|
}
|
|
}
|
|
}
|