Implements various operators for ALists

Content.Tests/DMProject/Tests/List/alist/AListAddOp.dm

@@ -0,0 +1,17 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = 1, "b" = 2, "c" = -4)
+	var/alist/AL2 = AL + "A"
+	ASSERT(AL2["c"] == -4)
+	ASSERT(AL2["d"] == null)
+	ASSERT("A" in AL2)
+	ASSERT(length(AL2) == 4)
+
+	AL2 = AL + list("c", "e")
+	ASSERT(AL2["c"] == -4)
+	ASSERT("e" in AL2)
+	ASSERT(length(AL2) == 4)
+
+	AL2 = AL + alist("c" = 6, "p" = 3)
+	ASSERT(AL2["c"] == -4)
+	ASSERT(AL2["p"] == 3)
+	ASSERT(length(AL2) == 4)

Content.Tests/DMProject/Tests/List/alist/AListAppend.dm

@@ -0,0 +1,17 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = 1, "b" = 2, "c" = -4)
+	AL += "A"
+	ASSERT(AL["c"] == -4)
+	ASSERT(AL["d"] == null)
+	ASSERT("A" in AL)
+	ASSERT(length(AL) == 4)
+
+	AL += list("c", "e")
+	ASSERT(AL["c"] == -4)
+	ASSERT("e" in AL)
+	ASSERT(length(AL) == 5)
+
+	AL += alist("c" = 6, "p" = 3)
+	ASSERT(AL["c"] == -4)
+	ASSERT(AL["p"] == 3)
+	ASSERT(length(AL) == 6)

Content.Tests/DMProject/Tests/List/alist/AListCombine.dm

@@ -0,0 +1,17 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = 1, "b" = 2, "c" = -4)
+	AL |= "A"
+	ASSERT(AL["c"] == -4)
+	ASSERT(AL["d"] == null)
+	ASSERT("A" in AL)
+	ASSERT(length(AL) == 4)
+
+	AL |= list("c", "e")
+	ASSERT(AL["c"] == -4)
+	ASSERT("e" in AL)
+	ASSERT(length(AL) == 5)
+
+	AL |= alist("c" = 6, "p" = 3)
+	ASSERT(AL["c"] == -4)
+	ASSERT(AL["p"] == 3)
+	ASSERT(length(AL) == 6)

Content.Tests/DMProject/Tests/List/alist/AListEquivalence.dm

@@ -0,0 +1,17 @@
+/proc/RunTest()
+	var/datum/D = new
+	var/alist/AL = alist("a" = null, "b" = null, "c" = null)
+	var/alist/AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/list/L = list("a", "b", "c")
+	var/list/L2 = list("a" = 1, "b" = 2, "c" = 3)
+	var/list/L3 = list("a", "b", "c", "d")
+	var/list/L4 = list("a", "b", "d")
+
+
+	ASSERT(AL ~= AL)
+	ASSERT(!(AL ~= AL2))
+	ASSERT(!(AL ~= D))
+	ASSERT(AL ~= L)
+	ASSERT(!(AL ~= L2))
+	ASSERT(!(AL ~= L3))
+	ASSERT(!(AL ~= L4))

Content.Tests/DMProject/Tests/List/alist/AListMask.dm

@@ -0,0 +1,56 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = null, "b" = null, "c" = null)
+	var/alist/AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/alist/AL3 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/list/L = list("a", "b", "c")
+	var/list/L2 = list("a", "b", "d")
+	var/list/L3 = list("a" = 1, "b" = 2, "c" = 3)
+	var/list/L4 = list("a" = 2, "e" = 4)
+
+	AL &= "a"
+	ASSERT("a" in AL)
+	ASSERT(!("b" in AL))
+	ASSERT(!("c" in AL))
+	ASSERT(length(AL) == 1)
+
+	AL &= "b"
+	ASSERT(!("a" in AL))
+	ASSERT(!("b" in AL))
+	ASSERT(!("c" in AL))
+	ASSERT(length(AL) == 0)
+
+	AL2 &= AL2
+	ASSERT(AL2["a"] == 1)
+	ASSERT(AL2["b"] == 2)
+	ASSERT(AL2["c"] == 3)
+	ASSERT(length(AL2) == 3)
+
+	AL2 &= AL3
+	ASSERT(AL2["a"] == 1)
+	ASSERT(AL2["b"] == 2)
+	ASSERT(AL2["c"] == 3)
+	ASSERT(length(AL2) == 3)
+
+	AL2 &= L
+	ASSERT(AL2["a"] == 1)
+	ASSERT(AL2["b"] == 2)
+	ASSERT(AL2["c"] == 3)
+	ASSERT(length(AL2) == 3)
+
+	AL2 &= L2
+	ASSERT(AL2["a"] == 1)
+	ASSERT(AL2["b"] == 2)
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 2)
+
+	AL2 &= L3
+	ASSERT(AL2["a"] == 1)
+	ASSERT(AL2["b"] == 2)
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 2)
+
+	AL2 &= L4
+	ASSERT(AL2["a"] == 1)
+	ASSERT(!("b" in AL2))
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 1)

Content.Tests/DMProject/Tests/List/alist/AListOr.dm

@@ -0,0 +1,17 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = 1, "b" = 2, "c" = -4)
+	var/alist/AL2 = AL | "A"
+	ASSERT(AL2["c"] == -4)
+	ASSERT(AL2["d"] == null)
+	ASSERT("A" in AL2)
+	ASSERT(length(AL2) == 4)
+
+	AL2 = AL | list("c", "e")
+	ASSERT(AL2["c"] == -4)
+	ASSERT("e" in AL2)
+	ASSERT(length(AL2) == 4)
+
+	AL2 = AL | alist("c" = 6, "p" = 3)
+	ASSERT(AL2["c"] == -4)
+	ASSERT(AL2["p"] == 3)
+	ASSERT(length(AL2) == 4)

Content.Tests/DMProject/Tests/List/alist/AListRemoveOp.dm

@@ -0,0 +1,59 @@
+/proc/RunTest()
+	var/alist/AL = alist("a" = null, "b" = null, "c" = null)
+	var/alist/AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/alist/AL3 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/list/L = list("a", "b", "c")
+	var/list/L2 = list("a", "b", "e")
+	var/list/L3 = list("a" = 1, "b" = 2, "c" = 3)
+	var/list/L4 = list("a" = 2, "e" = 4)
+
+	AL -= "a"
+	ASSERT(!("a" in AL))
+	ASSERT(length(AL) == 2)
+
+	AL -= "d"
+	ASSERT(!("a" in AL))
+	ASSERT("b" in AL)
+	ASSERT("c" in AL)
+	ASSERT(length(AL) == 2)
+
+	var/holder = AL2
+	AL2 -= holder
+	ASSERT(!("a" in AL2))
+	ASSERT(!("b" in AL2))
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 0)
+
+	AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	AL2 -= AL3
+	ASSERT(!("a" in AL2))
+	ASSERT(!("b" in AL2))
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 0)
+
+	AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	AL2 -= L
+	ASSERT(!("a" in AL2))
+	ASSERT(!("b" in AL2))
+	ASSERT(!("c" in AL2))
+	ASSERT(length(AL2) == 0)
+
+	AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	AL2 -= L2
+	ASSERT(!("a" in AL2))
+	ASSERT(!("b" in AL2))
+	ASSERT("c" in AL2)
+	ASSERT(length(AL2) ==  1)
+
+	AL3 -= L3
+	ASSERT(!("a" in AL3))
+	ASSERT(!("b" in AL3))
+	ASSERT(!("c" in AL3))
+	ASSERT(length(AL3) == 0)
+
+	AL3 = alist("a" = 1, "b" = 2, "c" = 3)
+	AL3 -= L4
+	ASSERT(!("a" in AL3))
+	ASSERT("b" in AL3)
+	ASSERT("c" in AL3)
+	ASSERT(length(AL3) == 2)

Content.Tests/DMProject/Tests/List/alist/AListSubtract.dm

@@ -0,0 +1,56 @@
+/proc/RunTest()
+	var/holder
+	var/alist/AL = alist("a" = null, "b" = null, "c" = null)
+	var/alist/AL2 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/alist/AL3 = alist("a" = 1, "b" = 2, "c" = 3)
+	var/list/L = list("a", "b", "c")
+	var/list/L2 = list("a", "b", "e")
+	var/list/L3 = list("a" = 1, "b" = 2, "c" = 3)
+	var/list/L4 = list("a" = 2, "e" = 4)
+
+	holder = AL - "a"
+	ASSERT(!("a" in holder))
+	ASSERT(length(holder) == 2)
+
+	holder = holder - "d"
+	ASSERT(!("a" in holder))
+	ASSERT("b" in holder)
+	ASSERT("c" in holder)
+	ASSERT(length(holder) == 2)
+
+	holder = AL2
+	holder = holder - AL2
+	ASSERT(!("a" in holder))
+	ASSERT(!("b" in holder))
+	ASSERT(!("c" in holder))
+	ASSERT(length(holder) == 0)
+
+	holder = alist("a" = 1, "b" = 2, "c" = 3) - AL3
+	ASSERT(!("a" in holder))
+	ASSERT(!("b" in holder))
+	ASSERT(!("c" in holder))
+	ASSERT(length(holder) == 0)
+
+	holder = alist("a" = 1, "b" = 2, "c" = 3) - L
+	ASSERT(!("a" in holder))
+	ASSERT(!("b" in holder))
+	ASSERT(!("c" in holder))
+	ASSERT(length(holder) == 0)
+
+	holder = alist("a" = 1, "b" = 2, "c" = 3) - L2
+	ASSERT(!("a" in holder))
+	ASSERT(!("b" in holder))
+	ASSERT("c" in holder)
+	ASSERT(length(holder) ==  1)
+
+	holder = holder - L3
+	ASSERT(!("a" in holder))
+	ASSERT(!("b" in holder))
+	ASSERT(!("c" in holder))
+	ASSERT(length(holder) == 0)
+
+	holder = alist("a" = 1, "b" = 2, "c" = 3) - L4
+	ASSERT(!("a" in holder))
+	ASSERT("b" in holder)
+	ASSERT("c" in holder)
+	ASSERT(length(holder) == 2)