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

Start adjusting acceptance tests to the new Plutus V3 syntax.

Browse Source
This commit is contained in:
KtorZ
2024-08-25 17:12:36 +02:00
parent af9a785d65
commit 3521a8c921
28 changed files with 88 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/acceptance_tests/077/validators/spend.ak
View File

@@ -1,8 +1,7 @@
use aiken/dict
use aiken/list.{find, foldr}
use aiken/transaction.{Input,
OutputReference, ScriptContext, Spend, Transaction} as tx
use aiken/transaction/value.{add, zero}
use aiken/collection/dict
use aiken/collection/list.{find, foldr}
use cardano/transaction.{Input, OutputReference, Transaction} as tx
use cardano/transaction/assets.{add, zero}
type Action {
Mint
@@ -10,14 +9,11 @@ type Action {
}
validator(token_name: ByteArray, utxo_ref: OutputReference) {
fn gift_card(rdmr: Action, ctx: ScriptContext) -> Bool {
let ScriptContext { transaction, purpose } = ctx
expect tx.Mint(policy_id) = purpose
mint(rdmr: Action, policy_id: PolicyId, transaction: Transaction) -> Bool {
let Transaction { inputs, mint, .. } = transaction
expect [Pair(asset_name, amount)] =
mint
|> value.from_minted_value
|> value.tokens(policy_id)
|> assets.tokens(policy_id)
|> dict.to_pairs()
when rdmr is {
Mint -> {