Remove test for seq only being called once.

PR feedback was that this is not in fact testing seq is only called once
due to seq returning itself when you call it multiple times so I dropped
it.

Author: alysbrooks

test/clojure/core_test/when_some.cljc

@@ -18,14 +18,6 @@
       (is (= '(0 1 2 3 4) (when-some [x (range 5)] x))))
     (testing "unlike when-let, we're looking for not-nil specifically, so false evaluates"
       (is (= false (when-some [x false] x))))
-    (testing "seq is only called once"
-      (let [calls (atom 0)
-            seq-fn (fn s [] (lazy-seq
-                              (swap! calls inc)
-                              (cons 1 (s))))
-            s (take 5 (seq-fn))]
-        (is (= '(1 1 1 1 1) (when-some [x s] x)))
-        (is (= @calls 5))))
     (testing "without a body, truth doesn't matter"
       (is (nil? (when-some [x nil])))
       (is (nil? (when-some [x [false]])))