Merge pull request #1101 from metosin/fix/some-pred

fix: (-some-pred []) should return false

Author: ikitommi

.github/workflows/clojure.yml

@@ -102,8 +102,6 @@ jobs:
         uses: DeLaGuardo/setup-clojure@master
         with:
           cli: latest
-          # bb: latest
-      - name: Download bb master
-        run: bash <(curl -s https://raw.githubusercontent.com/babashka/babashka/master/install) --version 0.8.157-SNAPSHOT
+          bb: latest
       - name: Run tests
         run: bb test-bb

src/malli/impl/util.cljc

@@ -60,7 +60,7 @@
                    (fn [x#] (~c (p# x#) (q# x#))))]
        `(fn ~f [~preds]
           (case (count ~preds)
-            0 (constantly true)
+            0 (constantly (boolean (~c)))
             1 (first ~preds)
             ~@cases
             ~else)))))

test/malli/util_test.cljc

@@ -946,7 +946,10 @@
          (is (true? ((miu/-some-pred tf) nil)))
          (is (true? ((miu/-some-pred ft) nil)))
          (is (false? ((miu/-some-pred ff) nil)))
-         (is (true? ((miu/-some-pred tt) nil)))))))
+         (is (true? ((miu/-some-pred tt) nil))))
+       (testing "empty inputs"
+         (is (true? ((miu/-every-pred []) :anything)))
+         (is (false? ((miu/-some-pred []) :anything)))))))
 
 (deftest explain-data-test
   (let [schema (m/schema [:map [:a [:vector [:maybe :string]]]])