From 43fd7ab2e24c62883fa53cb498a82a62d52ca5e1 Mon Sep 17 00:00:00 2001
From: nathanmarz <nathan@nathanmarz.com>
Date: Sun, 13 Aug 2017 11:50:42 -0400
Subject: [PATCH] add INDEXED-VALS tests

---
 src/clj/com/rpl/specter.cljc        | 1 -
 test/com/rpl/specter/core_test.cljc | 9 +++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/clj/com/rpl/specter.cljc b/src/clj/com/rpl/specter.cljc
index 2e19f9e..87fe7b7 100644
--- a/src/clj/com/rpl/specter.cljc
+++ b/src/clj/com/rpl/specter.cljc
@@ -1028,7 +1028,6 @@
            (->> s
                 (setval (nthpath curri) newe)
                 (setval (index-nav curri) newi)
-                i/spy
                 )))
        structure
        structure
diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc
index d4ccb51..7a253dc 100644
--- a/test/com/rpl/specter/core_test.cljc
+++ b/test/com/rpl/specter/core_test.cljc
@@ -1617,6 +1617,15 @@
     (is (predand= list? '(6 1 2 3 4 5) (setval (s/index-nav 5) 0 datal)))
     ))
 
+(deftest indexed-vals-test
+  (let [data [:a :b :c :d :e]]
+    (is (= [[0 :a] [1 :b] [2 :c] [3 :d] [4 :e]] (select s/INDEXED-VALS data)))
+    (is (= [:e :d :c :b :a] (setval [s/INDEXED-VALS s/FIRST] 0 data)))
+    (is (= [:a :b :e :d :c] (setval [s/INDEXED-VALS s/FIRST] 2 data)))
+    (is (= [:b :a :d :c :e] (transform [s/INDEXED-VALS s/FIRST odd?] dec data)))
+    (is (= [:a :b :c :d :e] (transform [s/INDEXED-VALS s/FIRST odd?] inc data)))
+    ))
+
 #?(:clj
   (do
     (defprotocolpath FooPP)