test: fix acceptance tests

This commit is contained in:
rvcas
2023-08-16 14:52:06 -04:00
parent 80e4a5c6a2
commit f4d0f231d7
12 changed files with 43 additions and 55 deletions

View File

@@ -1,4 +1,3 @@
use aiken/list
use aiken/option
use aiken/transaction.{NoDatum, ScriptContext, Spend, TransactionId}
use aiken/transaction/credential.{VerificationKeyCredential}
@@ -6,13 +5,12 @@ use aiken/transaction/value
validator {
fn spend(_datum: Void, _redeemer: Void, ctx: ScriptContext) {
[
and {
assert_id(ctx.transaction),
assert_purpose(ctx.purpose),
assert_outputs(ctx.transaction),
assert_fee(ctx.transaction),
]
|> list.and
}
}
}
@@ -39,7 +37,7 @@ fn assert_fee(transaction) {
fn assert_outputs(transaction) {
when transaction.outputs is {
[output] ->
[
and {
output.value == value.from_lovelace(1000000000),
output.address.payment_credential == VerificationKeyCredential(
#"11111111111111111111111111111111111111111111111111111111",
@@ -47,8 +45,7 @@ fn assert_outputs(transaction) {
option.is_none(output.address.stake_credential),
output.datum == NoDatum,
output.reference_script == None,
]
|> list.and
}
_ -> fail @"unexpected number of outputs"
}
}