From add77ca6abe57e9b0bf65de22d8b93560f25f9f0 Mon Sep 17 00:00:00 2001
From: Jonathan Bernard <jdb@jdb-labs.com>
Date: Fri, 5 May 2017 19:17:43 -0500
Subject: [PATCH] Added sameContents proc and tests.

---
 langutils.nim    | 10 ++++++++++
 langutils.nimble |  4 +++-
 tlangutils.nim   | 44 ++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 57 insertions(+), 1 deletion(-)
 create mode 100644 tlangutils.nim

diff --git a/langutils.nim b/langutils.nim
index 510b145..f07fba8 100644
--- a/langutils.nim
+++ b/langutils.nim
@@ -1,3 +1,5 @@
+from sequtils import anyIt
+
 template `?:`*(a, b: string): string =
   if len(a) > 0: a else: b
 
@@ -16,4 +18,12 @@ template `?:`*(a, b): auto =
 template `?.`*(a: ref, b: untyped): auto =
   if a != nil: a.b else: nil
 
+proc sameContents*[T](a1, a2: openArray[T]): bool =
+  # Answers the question: do these two arrays contain the same contents,
+  # regardless of their order?
+  if a1.len != a2.len: return false
+  for a in a1:
+    if not a2.anyIt(a == it): return false
+  return true
+
 
diff --git a/langutils.nimble b/langutils.nimble
index b2ed1a6..d6e8d88 100644
--- a/langutils.nimble
+++ b/langutils.nimble
@@ -1,6 +1,6 @@
 # Package
 
-version       = "0.1.0"
+version       = "0.2.0"
 author        = "Jonathan Bernard"
 description   = "Language extensions (templates, macros) I commonly use."
 license       = "MIT"
@@ -9,3 +9,5 @@ license       = "MIT"
 
 requires "nim >= 0.15.0"
 
+task test, "Runs the test suite.":
+  exec "nim c -r tlangutils.nim"
diff --git a/tlangutils.nim b/tlangutils.nim
new file mode 100644
index 0000000..07a4544
--- /dev/null
+++ b/tlangutils.nim
@@ -0,0 +1,44 @@
+import langutils, unittest
+
+type
+  SimpleObj = object
+    strVal*: string
+
+  TestObj = object
+    strVal*: string
+    intVal*: int
+    objVal*: SimpleObj
+
+suite "testutil":
+
+  test "sameContents":
+    let a1 = [1, 2, 3, 4]
+    let a2 = [3, 2, 4, 1]
+    let a3 = [1, 2, 3, 5]
+    let b1 = ["this", "is", "a", "test"]
+    let b2 = ["a", "test", "this", "is"]
+    let b3 = ["a", "negative", "test", "this", "is"]
+    let c1 = [TestObj(strVal: "a", intVal: 1, objVal: SimpleObj(strVal: "innerA")),
+              TestObj(strVal: "b", intVal: 2, objVal: SimpleObj(strVal: "innerB"))]
+    let c2 = [c1[1], c1[0]]
+
+    check:
+      sameContents(a1, a2)
+      sameContents(b2, b1)
+      sameContents(c1, c2)
+      sameContents(a1, a3) == false
+      sameContents(b1, b3) == false
+
+  test "sameContents (seq)":
+    let a1 = @[1, 2, 3, 4]
+    let a2 = @[3, 2, 4, 1]
+
+    check:
+      sameContents(a1, a2)
+
+  test "sameContents (cross-type)":
+    let a1 = @[1, 2, 3, 4]
+    let a2 = [3, 2, 4, 1]
+
+    check:
+      sameContents(a1, a2)