test 'mint' purpose and script context creation.

Alongside a bunch of other stuff from the coverage list. In
  particular, the mint transaction contains:

  - reference inputs
  - multiple outputs, with assets, and type-0, type-1 and type-6
    addresses.
  - an output with a datum hash
  - an output with an inline script
  - carries an extra datum witness, preimage of the embedded hash
  - mint, with 2 policies purposely ordered wrongly, with 1 and 2
    assets purposely ordered wrong. One of the mint is actually a
    burn (i.e. negative quantity)

examples/acceptance_tests/script_context/v3/README.md

@@ -31,12 +31,12 @@ for convenience.
   - [x] inputs
   - reference inputs
     - [x] none
-    - [ ] some
+    - [x] some
   - outputs
-    - [ ] none
-    - [ ] some
+    - [x] none
+    - [x] some
   - [x] fee
-  - [ ] mint
+  - [x] mint
   - certificates
     - [ ] none
     - some
@@ -63,7 +63,7 @@ for convenience.
     - [x] none
     - [ ] some
   - [ ] redeemers
-  - [ ] datums
+  - [x] datums
   - votes
      - [ ] none
      - [ ] some
@@ -78,27 +78,27 @@ for convenience.
      - [ ] without
 
 - Address
-    - [ ] type-0 (key | key)
-    - [ ] type-1 (script | key)
+    - [x] type-0 (key | key)
+    - [x] type-1 (script | key)
     - [ ] type-2 (key | script)
     - [ ] type-3 (script | script)
     - [ ] type-4 (key | ptr)
     - [ ] type-5 (script | ptr)
-    - [ ] type-6 (key | ø)
+    - [x] type-6 (key | ø)
     - [x] type-7 (key | ø)
 
 - Value
     - [x] only ada
-    - [ ] multi-assets
+    - [x] multi-assets
 
 - Output datum
-    - [ ] none
-    - [ ] hash
+    - [x] none
+    - [x] hash
     - [x] inline
 
 - Output script
     - [x] none
-    - [ ] inline
+    - [x] inline
 
 - Governance Action
   - parameter change
@@ -167,10 +167,6 @@ for convenience.
   - [ ] with guardrail script
   - [ ] without guardrail script
 
-- Value
-  - [x] pure ada
-  - [ ] native assets
-
 - Credential
   - [ ] key
   - [x] script

examples/acceptance_tests/script_context/v3/ctx/mint/tx.template

@@ -6,9 +6,9 @@
     , 1:
       [ { 0: h'6000000000000000000000000000000000000000000000000000000000'
 	, 1: 1000000
-	, 2: [1, 24(h'4463666F6F')]
+	, 2: [0, h'923918e403bf43c34b4ef6b48eb2ee04babed17320d8d1b9ff9ad086e86f44ec']
 	}
-      , { 0: h'6000000000000000000000000000000000000000000000000000000000'
+      , { 0: h'000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'
 	, 1:
 	  [ 1000000
 	  , { h'{{ mint.mint_1.hash }}': { h'74756e61': 100000000000000 }
@@ -16,7 +16,7 @@
 	    }
 	  ]
 	}
-      , { 0: h'6000000000000000000000000000000000000000000000000000000000'
+      , { 0: h'100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'
 	, 1:
 	  [ 1000000
 	  , { h'{{ mint.mint_2.hash }}': { h'63617264616e6f': 1 }
@@ -49,6 +49,10 @@
       ]
 
     , 17: 1
+
+    , 18:
+      [ [h'0000000000000000000000000000000000000000000000000000000000000000', 0]
+      ]
     },
 
     { 5:
@@ -56,6 +60,14 @@
       , [1, 1, 42, [1000000, 100000000]]
       ]
 
+    , 4:
+      [ 121([])
+      ]
+
+    , 7:
+      [ h'{{ mint.mint_1.cbor }}'
+      , h'{{ mint.mint_2.cbor }}'
+      ]
 
     },
 

examples/acceptance_tests/script_context/v3/test.sh

@@ -58,17 +58,6 @@ done
 echo $RESOLVED_INPUTS | cbor-diag --to hex --from diag > ctx/$TITLE/resolved_inputs.cbor
 echo $TRANSACTION | cbor-diag --to hex --from diag > ctx/$TITLE/tx.cbor
 
-# echo "TRANSACTION"
-# cat ctx/$TITLE/tx.cbor
-
-# ogmios inspect transaction $(cat ctx/$TITLE/tx.cbor) | jq
-
-# echo -e "\n\nINPUTS"
-# cat ctx/inputs.cbor
-#
-# echo -e "\n\nRESOLVED_INPUTS"
-# cat ctx/$TITLE/resolved_inputs.cbor
-
 $AIKEN tx simulate \
   ctx/$TITLE/tx.cbor \
   ctx/inputs.cbor \

examples/acceptance_tests/script_context/v3/validators/mint.ak

@@ -1,18 +1,128 @@
-use aiken/dict
+use aiken/dict.{Dict}
+use aiken/list
 use aiken/transaction.{
-  InlineDatum, Input, Output, OutputReference, ScriptContext, Spend, Spending,
+  DatumHash, Input, Mint, Minting, NoDatum, Output, OutputReference,
+  ScriptContext, ScriptInfo, ScriptPurpose,
 }
-use aiken/transaction/credential.{Address, ScriptCredential}
-use aiken/transaction/value
+use aiken/transaction/credential
+use aiken/transaction/value.{PolicyId, Value}
+
+const null28 = #"00000000000000000000000000000000000000000000000000000000"
+
+const null32 =
+  #"0000000000000000000000000000000000000000000000000000000000000000"
+
+const void_hash =
+  #"923918e403bf43c34b4ef6b48eb2ee04babed17320d8d1b9ff9ad086e86f44ec"
 
 validator {
   fn mint_1(_tmp2: Void, ctx: ScriptContext) {
+    let our_policy_id = assert_script_info(ctx.info)
+    let other_policy_id = assert_redeemers(ctx.transaction.redeemers)
+    assert_outputs(ctx.transaction.outputs, our_policy_id, other_policy_id)
+    assert_mint(ctx.transaction.mint, our_policy_id, other_policy_id)
+    assert_reference_inputs(ctx.transaction.reference_inputs)
+    assert_datums(ctx.transaction.datums)
     True
   }
 }
 
+fn assert_reference_inputs(inputs: List<Input>) -> Void {
+  expect
+    [
+      Input {
+        output_reference: OutputReference {
+          transaction_id: null32,
+          output_index: 0,
+        },
+        output: Output {
+          address: credential.from_verification_key(null28),
+          value: value.from_lovelace(1_000_000),
+          datum: NoDatum,
+          reference_script: None,
+        },
+      },
+    ] == inputs
+  Void
+}
+
+fn assert_script_info(info: ScriptInfo) -> PolicyId {
+  expect Minting(policy_id) = info
+  policy_id
+}
+
+fn assert_redeemers(redeemers: Pairs<ScriptPurpose, Data>) -> PolicyId {
+  expect [Pair(Mint(other_policy_id), data), _] = redeemers
+  expect Void = data
+  other_policy_id
+}
+
+fn assert_datums(datums: Dict<ByteArray, Data>) -> Void {
+  let void: Data = Void
+  expect [Pair(void_hash, void)] == dict.to_pairs(datums)
+  Void
+}
+
+fn assert_outputs(
+  outputs: List<Output>,
+  our_policy_id: PolicyId,
+  other_policy_id: PolicyId,
+) {
+  expect list.length(outputs) == 3
+
+  expect
+    Some(
+      Output {
+        address: credential.from_verification_key(null28),
+        value: value.from_lovelace(1_000_000),
+        datum: DatumHash(void_hash),
+        reference_script: None,
+      },
+    ) == list.at(outputs, 0)
+
+  expect
+    Some(
+      Output {
+        address: credential.from_verification_key(null28)
+          |> credential.with_delegation_key(null28),
+        value: value.from_lovelace(1_000_000)
+          |> value.add(our_policy_id, "tuna", 100000000000000)
+          |> value.add(other_policy_id, "aiken", 42),
+        datum: NoDatum,
+        reference_script: None,
+      },
+    ) == list.at(outputs, 1)
+
+  expect
+    Some(
+      Output {
+        address: credential.from_script(null28)
+          |> credential.with_delegation_key(null28),
+        value: value.from_lovelace(1_000_000)
+          |> value.add(other_policy_id, "cardano", 1),
+        datum: NoDatum,
+        reference_script: Some(
+          #"68ad54b3a8124d9fe5caaaf2011a85d72096e696a2fb3d7f86c41717",
+        ),
+      },
+    ) == list.at(outputs, 2)
+
+  Void
+}
+
+fn assert_mint(mint: Value, our_policy_id: PolicyId, other_policy_id: PolicyId) {
+  expect
+    [
+      (other_policy_id, "aiken", -14),
+      (other_policy_id, "cardano", 1),
+      (our_policy_id, "tuna", 100000000000000),
+    ] == value.flatten(mint)
+  Void
+}
+
 validator {
-  fn mint_2(_tmp2: Void, ctx: ScriptContext) {
+  fn mint_2(_tmp2: Void, _ctx: ScriptContext) {
+    trace @"_____mint_2_____"
     True
   }
 }