Merge pull request #1046 from hexlet-codebattle/fix-binary-search-gen…

…erator

src/battle_asserts/issues/binary_search.clj

@@ -18,15 +18,18 @@
            {:argument-name "target" :type {:name "integer"}}]
    :output {:type {:name "integer"}}})
 
+(defn generate-elements []
+  (vec (sort (distinct (gen/generate (gen/vector (gen/choose 2 121) 10 50))))))
+
 (defn arguments-generator []
-  (gen/tuple (gen/vector (gen/choose 2 121) 10 128) (gen/choose 1 142)))
+  (let [collections (vec (repeatedly 40 generate-elements))]
+    (gen/tuple (gen/elements collections) (gen/choose 1 135))))
 
 (def test-data
   [{:expected 1 :arguments [[1 2 2 2 3 4 5] 2]}
    {:expected 0 :arguments [[1 1 1 1 1 1 1] 1]}
    {:expected 4 :arguments [[-10 -5 0 4 7 9 11 11 13 14 15] 7]}
    {:expected -1 :arguments [[1 2 3 4 5] 6]}])
-   ; {:expected -1 :arguments [[] 42]}])
 
 (defn solution [sorted-list target]
   (let [lo 0

test/test_helper.clj

@@ -7,7 +7,7 @@
 (def difficulties #{:elementary :easy :medium :hard})
 
 (defn- check-output-type [data]
-  (if (or (= (type data) java.lang.Integer) (= (type data) java.lang.Long)) ; for backward compatibility 
+  (if (or (= (type data) java.lang.Integer) (= (type data) java.lang.Long)) ; for backward compatibility
     java.lang.Long
     (type data)))
 
@@ -17,6 +17,7 @@
 (defn- nested? [element]
   (contains?
    #{clojure.lang.PersistentList
+     clojure.lang.ArraySeq
      clojure.lang.PersistentArrayMap
      clojure.lang.PersistentVector}
    (type element)))
@@ -28,6 +29,7 @@
    java.lang.Double "float"
    java.lang.Boolean "boolean"
    clojure.lang.Ratio "integer"
+   clojure.lang.ArraySeq "array"
    clojure.lang.PersistentList "array"
    clojure.lang.PersistentVector "array"
    clojure.lang.PersistentArrayMap "hash"