CLJS-1754: Add boolean? generator

Author: anmonteiro

script/test-self-parity

@@ -10,8 +10,10 @@ if [ ! -f lib/clojure.jar ]; then
   exit 1
 fi
 jar xvf lib/clojure.jar clojure/template.clj > /dev/null
-mkdir -p builds/out-self-parity/clojure
+jar xvf lib/test.check.jar clojure/test/check/random clojure/test/check/generators.cljc clojure/test/check/rose_tree.cljc > /dev/null
+mkdir -p builds/out-self-parity/clojure/test
 mv clojure/template.clj builds/out-self-parity/clojure
+mv clojure/test/check builds/out-self-parity/clojure/test
 
 bin/cljsc src/test/self/self_parity  "{:optimizations :none :output-to \"builds/out-self-parity/main.js\" :output-dir \"builds/out-self-parity\" :main self-parity.test :target :nodejs}"
 

src/main/cljs/cljs/spec/impl/gen.cljs

@@ -124,6 +124,7 @@ gen-builtins
        nil? (return nil)
        false? (return false)
        true? (return true)
+       boolean? (boolean)
        zero? (return 0)
        ;rational? (one-of [(large-integer) (ratio)])
        coll? (one-of [(map simple simple)

src/test/cljs/cljs/spec_test.cljs

@@ -1,6 +1,8 @@
 (ns cljs.spec-test
   (:require [cljs.spec :as s]
-            [cljs.test :as test :refer-macros [deftest is are run-tests]]))
+            [cljs.test :as test :refer-macros [deftest is are run-tests]]
+            [cljs.spec.impl.gen :as gen]
+            [clojure.test.check.generators]))
 
 (s/def ::even? (s/and number? even?))
 (s/def ::odd? (s/and number? odd?))
@@ -65,6 +67,9 @@
   (is (= 42 (s/assert ::even-number 42)))
   (is (thrown? js/Error (s/assert ::even-number 5))))
 
+(deftest test-cljs-1754
+  (is (boolean? (gen/generate (s/gen boolean?)))))
+
 ;; Copied from Clojure spec tests
 
 (def even-count? #(even? (count %)))