From 89a17d96663cd83617c1179860a17432468bb534 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Thu, 27 Jun 2019 09:43:01 +0100
Subject: [PATCH] All tests now pass - changes to test only (they were wrong).

---
 test/sparse_array/extract_test.clj | 33 +++++++++++++++++++++++-------
 1 file changed, 26 insertions(+), 7 deletions(-)

diff --git a/test/sparse_array/extract_test.clj b/test/sparse_array/extract_test.clj
index 01fc3ca..38bac61 100644
--- a/test/sparse_array/extract_test.clj
+++ b/test/sparse_array/extract_test.clj
@@ -36,18 +36,28 @@
       (let [expected nil
             actual (get threes 0 0 0)]
         (is (= actual expected)))
-      (let [expected 1
+      (let [expected 3
             actual (get integers 0 0 2)]
         (is (= actual expected)))
       (let [expected nil
             actual (get keywords 0 0 2)]
         (is (= actual expected)))
-      (let [expected "three"
+      (let [expected :three
+            actual (get keywords 0 1 2)]
+        (is (= actual expected)))
+      (let [expected nil
             actual (get strings 0 0 2)]
         (is (= actual expected)))
-      (let [expected "three"
+      (let [expected 3
             actual (get threes 0 0 2)]
-        (is (= actual expected))))))
+        (is (= actual expected)))
+      (let [expected :three
+            actual (get threes 0 1 2)]
+        (is (= actual expected)))
+      (let [expected "three"
+            actual (get threes 0 2 2)]
+        (is (= actual expected)))
+      )))
 
 (deftest dense-tests
   (testing "extraction from dense array"
@@ -80,15 +90,24 @@
       (let [expected nil
             actual (get threes 0 0 0)]
         (is (= actual expected)))
-      (let [expected 1
+      (let [expected 3
             actual (get integers 0 0 2)]
         (is (= actual expected)))
       (let [expected nil
             actual (get keywords 0 0 2)]
         (is (= actual expected)))
-      (let [expected "three"
+      (let [expected :three
+            actual (get keywords 0 1 2)]
+        (is (= actual expected)))
+      (let [expected nil
             actual (get strings 0 0 2)]
         (is (= actual expected)))
-      (let [expected "three"
+      (let [expected 3
             actual (get threes 0 0 2)]
+        (is (= actual expected)))
+      (let [expected :three
+            actual (get threes 0 1 2)]
+        (is (= actual expected)))
+      (let [expected "three"
+            actual (get threes 0 2 2)]
         (is (= actual expected))))))