 (t/deftest arbitrary-choice-with-any
   #?(:cljs
      (t/async done
-       (let [p1 (p/any [(p/delay 300 1) (p/delay 200 2)])]
+       (let [p1 (p/any [(p/delay 300 1) (p/delay 100 2)])]
          (p/then p1 (fn [v]
                       (t/is (= v 2))
                       (done)))))
      :clj
-     (let [p1 (p/any [(p/delay 300 1) (p/delay 200 2)])]
+     (let [p1 (p/any [(p/delay 300 1) (p/delay 100 2)])]
        (t/is (= @p1 2)))))
 
 (t/deftest reject-promise-in-chain

  #?(:cljs
     (t/async done
       (let [value (volatile! nil)
             c1 (p/schedule 1000 #(vreset! value 1))
             c2 (p/schedule 1000 #(vreset! value 2))]
         (p/cancel! c1)
         (p/schedule 1200
                     (fn []
                       (t/is (= @value 2))
                       (t/is (realized? c2))

(t/deftest chaining-using-mapcat
  #?(:cljs
     (t/async done
       (let [p1 (future-ok 100 2)
             inc #(p/resolved (inc %))
             p2 (p/mapcat inc p1)
             p3 (p/mapcat inc p2)]
