Add tests for APPEND.

Author: python-processing-unit

tests/cases/failing/append-arity-one.pre

@@ -0,0 +1 @@
+APPEND(0d1)

tests/cases/failing/append-arity-three.pre

@@ -0,0 +1 @@
+APPEND(0d1, [0d2], 0d3)

tests/cases/failing/append-arity-zero.pre

@@ -0,0 +1 @@
+APPEND()

tests/cases/failing/append-second-non-tns.pre

@@ -0,0 +1 @@
+APPEND(0d1, 0d2)

tests/cases/failing/append-second-not-1d.pre

@@ -0,0 +1 @@
+APPEND(0d9, [[0d1], [0d2]])

tests/cases/passing/append-any-element.pre

@@ -0,0 +1,5 @@
+MAP: m = <"k" = 0d1>
+TNS: nested = [0d5, 0d6]
+
+ASSERT(EQ(APPEND(m, [0d1]), [0d1, m]))
+ASSERT(EQ(APPEND(nested, [0d1]), [0d1, nested]))

tests/cases/passing/append-basic.pre

@@ -0,0 +1,5 @@
+TNS: base = [0d1, 0d2]
+TNS: out = APPEND(0d3, base)
+
+ASSERT(EQ(TYPE(out), "TNS"))
+ASSERT(EQ(out, [0d1, 0d2, 0d3]))

tests/cases/passing/append-end-order.pre

@@ -0,0 +1,2 @@
+ASSERT(EQ(APPEND("z", ["a", "b"]), ["a", "b", "z"]))
+ASSERT(EQ(APPEND(0d9, [0d7]), [0d7, 0d9]))

tests/cases/passing/append-source-unchanged.pre

@@ -0,0 +1,5 @@
+TNS: src = [0d10, 0d20]
+TNS: out = APPEND(0d30, src)
+
+ASSERT(EQ(src, [0d10, 0d20]))
+ASSERT(EQ(out, [0d10, 0d20, 0d30]))