From 9a4a0cb26cb3c4aed784e73eb330ca551599ea64 Mon Sep 17 00:00:00 2001
From: Nathan Marz <nathan@nathanmarz.com>
Date: Fri, 11 Sep 2015 13:53:27 -0400
Subject: [PATCH] nested filterer/selected? test with params

---
 test/com/rpl/specter/core_test.cljc | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/test/com/rpl/specter/core_test.cljc b/test/com/rpl/specter/core_test.cljc
index df78388..32f99c5 100644
--- a/test/com/rpl/specter/core_test.cljc
+++ b/test/com/rpl/specter/core_test.cljc
@@ -17,8 +17,6 @@
 
 ;;TODO:
 ;; test walk, codewalk
-;; test keypath
-
 
 (defn limit-size [n {gen :gen}]
   (gen/->Generator
@@ -477,9 +475,19 @@
            v))
       )))
 
-;;TODO: test using params path
-;; using filterer, transformed, selected? with parameterized paths
-;; using cond-path parameterized paths
-;; parameterized filterer can be composed with other parmaterized paths
-;; parameterized cond-path can be composed with other parammed paths
-;; nested selected? takes params correctly
+(deftest nested-param-paths
+  (let [p (s/filterer s/keypath (s/selected? s/ALL s/keypath (s/filterer s/keypath even?) s/ALL))
+        p2 (p :a :b :c)
+        p3 (s/filterer :a (s/selected? s/ALL :b (s/filterer :c even?) s/ALL))
+        data [{:a [{:b [{:c 4 :d 5}]}]}
+              {:a [{:c 3}]}
+              {:a [{:b [{:c 7}] :e [1]}]}]
+        ]
+    (is (= (s/select p2 data)
+           (s/select p3 data)
+           [[{:a [{:b [{:c 4 :d 5}]}]}]]
+           ))
+    ))
+
+;; TODO: test multi-path with params
+