Added 048 acceptance test

examples/acceptance_tests/048/aiken.lock

@@ -0,0 +1,5 @@
+# This file was generated by Aiken
+# You typically do not need to edit this file
+
+requirements = []
+packages = []

examples/acceptance_tests/048/aiken.toml

@@ -0,0 +1,3 @@
+name = 'aiken-lang/acceptance_test_048'
+version = '0.0.0'
+description = ''

examples/acceptance_tests/048/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
+}

examples/acceptance_tests/048/validators/foo.ak

@@ -0,0 +1,9 @@
+fn when_tuple(a: (Int, Int)) -> Int {
+  when a is {
+    (a, b) -> a
+  }
+}
+
+pub fn spend(a, b, c) -> Bool {
+  when_tuple((4, 1)) == 4
+}