luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests to include the three new navigators

Browse source
This commit is contained in:
Joshua Suskalo 2021-08-26 13:21:19 -05:00
parent c309fdbeef
commit 499d1b63c0
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
test/com/rpl/specter/core_test.cljc
View file

@ -1,6 +1,6 @@
(ns com.rpl.specter.core-test (ns com.rpl.specter.core-test
#?(:cljs (:require-macros #?(:cljs (:require-macros
[cljs.test :refer [is deftest]] [cljs.test :refer [is deftest testing]]
[clojure.test.check.clojure-test :refer [defspec]] [clojure.test.check.clojure-test :refer [defspec]]
[com.rpl.specter.cljs-test-helpers :refer [for-all+]] [com.rpl.specter.cljs-test-helpers :refer [for-all+]]
[com.rpl.specter.test-helpers :refer [ic-test]] [com.rpl.specter.test-helpers :refer [ic-test]]
@ -13,7 +13,7 @@
defdynamicnav traverse-all satisfies-protpath? end-fn defdynamicnav traverse-all satisfies-protpath? end-fn
vtransform]])) vtransform]]))
(:use (:use
#?(:clj [clojure.test :only [deftest is]]) #?(:clj [clojure.test :only [deftest is testing]])
#?(:clj [clojure.test.check.clojure-test :only [defspec]]) #?(:clj [clojure.test.check.clojure-test :only [defspec]])
#?(:clj [com.rpl.specter.test-helpers :only [for-all+ ic-test]]) #?(:clj [com.rpl.specter.test-helpers :only [for-all+ ic-test]])
#?(:clj [com.rpl.specter #?(:clj [com.rpl.specter
@ -1702,3 +1702,21 @@
(is (satisfies-protpath? FooPP "a")) (is (satisfies-protpath? FooPP "a"))
(is (not (satisfies-protpath? FooPP 1))) (is (not (satisfies-protpath? FooPP 1)))
))) )))
(deftest sorted-test
(let [initial-list [3 4 2 1]]
(testing "the SORTED navigator"
(is (= (sort initial-list) (select-one s/SORTED initial-list)))
(is (= [2 1 3 4] (transform s/SORTED reverse initial-list)))
(is (= [3 2 1] (transform s/SORTED butlast initial-list)))
(is (= [3 5 2 1] (setval [s/SORTED s/LAST] 5 initial-list))))
(testing "the sorted navigator with comparator"
(let [reverse-comparator (comp - compare)]
(is (= (sort reverse-comparator initial-list)
(select-one (s/sorted reverse-comparator) initial-list)))
(is (= 4 (select-one [(s/sorted reverse-comparator) s/FIRST] initial-list))))))
(testing "the sorted-by navigator with keypath"
(let [initial-list [{:a 3} {:a 4} {:a 2} {:a 1}]]
(is (= (sort-by :a initial-list)
(select-one (s/sorted-by :a) initial-list)))
(is (= {:a 4} (select-one [(s/sorted-by :a (comp - compare)) s/FIRST] initial-list))))))