diff --git a/examples/acceptance_tests/049/aiken.lock b/examples/acceptance_tests/049/aiken.lock new file mode 100644 index 00000000..3a78b1e7 --- /dev/null +++ b/examples/acceptance_tests/049/aiken.lock @@ -0,0 +1,5 @@ +# This file was generated by Aiken +# You typically do not need to edit this file + +requirements = [] +packages = [] diff --git a/examples/acceptance_tests/049/aiken.toml b/examples/acceptance_tests/049/aiken.toml new file mode 100644 index 00000000..e0b73158 --- /dev/null +++ b/examples/acceptance_tests/049/aiken.toml @@ -0,0 +1,3 @@ +name = 'aiken-lang/acceptance_test_049' +version = '0.0.0' +description = '' diff --git a/examples/acceptance_tests/049/assets/foo/spend/mainnet.addr b/examples/acceptance_tests/049/assets/foo/spend/mainnet.addr new file mode 100644 index 00000000..36be4414 --- /dev/null +++ b/examples/acceptance_tests/049/assets/foo/spend/mainnet.addr @@ -0,0 +1 @@ +addr1w9z47fyj9ffqck2fnld04k27zfe04wq6n9zj76u4ghu4xdcd0futm \ No newline at end of file diff --git a/examples/acceptance_tests/049/assets/foo/spend/payment_script.json b/examples/acceptance_tests/049/assets/foo/spend/payment_script.json new file mode 100644 index 00000000..b3302099 --- /dev/null +++ b/examples/acceptance_tests/049/assets/foo/spend/payment_script.json @@ -0,0 +1,5 @@ +{ + "type": "PlutusScriptV2", + "description": "Generated by Aiken", + "cborHex": "4e4d01000022253335734944526161" +} \ No newline at end of file diff --git a/examples/acceptance_tests/049/assets/foo/spend/script.cbor b/examples/acceptance_tests/049/assets/foo/spend/script.cbor new file mode 100644 index 00000000..862591fa --- /dev/null +++ b/examples/acceptance_tests/049/assets/foo/spend/script.cbor @@ -0,0 +1 @@ +4d01000022253335734944526161 \ No newline at end of file diff --git a/examples/acceptance_tests/049/assets/foo/spend/testnet.addr b/examples/acceptance_tests/049/assets/foo/spend/testnet.addr new file mode 100644 index 00000000..d6baa9fb --- /dev/null +++ b/examples/acceptance_tests/049/assets/foo/spend/testnet.addr @@ -0,0 +1 @@ +addr_test1wpz47fyj9ffqck2fnld04k27zfe04wq6n9zj76u4ghu4xdck8aqy7 \ No newline at end of file diff --git a/examples/acceptance_tests/049/lib/tests.ak b/examples/acceptance_tests/049/lib/tests.ak new file mode 100644 index 00000000..7cef193d --- /dev/null +++ b/examples/acceptance_tests/049/lib/tests.ak @@ -0,0 +1,9 @@ +pub fn when_tuple(a: (Int, Int)) -> Int { + when a is { + (a, b) -> a + } +} + +test when_tuple_1() { + when_tuple((4, 1)) == 4 +}