Fix remaining acceptance tests to be V3-compatible

This commit is contained in:
KtorZ
2024-08-27 18:58:50 +02:00
parent d615b4f889
commit 48535636ed
59 changed files with 357 additions and 277 deletions

View File

@@ -1,15 +1,15 @@
use aiken/collection/dict
use aiken/collection/list.{find, foldr}
use cardano/assets.{PolicyId, add, zero}
use cardano/transaction.{Input, OutputReference, Transaction} as tx
use cardano/transaction/assets.{add, zero}
type Action {
pub type Action {
Mint
Burn
}
validator foo(token_name: ByteArray, utxo_ref: OutputReference) {
mint(rdmr: Action, policy_id: PolicyId, transaction: Transaction) -> Bool {
mint(rdmr: Action, policy_id: PolicyId, transaction: Transaction) {
let Transaction { inputs, mint, .. } = transaction
expect [Pair(asset_name, amount)] =
mint
@@ -24,4 +24,8 @@ validator foo(token_name: ByteArray, utxo_ref: OutputReference) {
Burn -> todo @"burn"
}
}
else(_) {
fail
}
}

View File

@@ -3,15 +3,19 @@ use cardano/transaction.{Output, Transaction}
validator foo {
spend(
_datum: Void,
_datum: Option<Void>,
_redeemer: Void,
_ref: Data,
transaction: Transaction,
) -> Bool {
) {
expect Some(_) = list.find(transaction.outputs, fn(_) { True })
let _ = find_stuff(transaction)
True
}
else(_) {
fail
}
}
fn find_stuff(transaction: Transaction) -> Output {