fix API rate limit reached

Author: shmuelko

src/practitest_firecracker/practitest.clj

@@ -13,7 +13,7 @@
 
 ;; ===========================================================================
 ;; api version
-(def ^:const fc-version "2.0.4")
+(def ^:const fc-version "2.0.6")
 
 ;; ===========================================================================
 ;; utils
@@ -73,7 +73,7 @@
             429 (do
                   (log/warnf "API rate limit reached, waiting for %s seconds" backoff-timeout)
                   (Thread/sleep (* backoff-timeout 1000))
-                  (recur results (dec attempts) uri params))
+                  (recur results uri (dec attempts) params))
             200 (let [data (:data body)]
                   (recur (vec
                           (if (sequential? data)
@@ -492,9 +492,9 @@
                       additional-run-fields (eval-additional-fields run (:additional-run-fields options))
                       additional-run-fields (merge additional-run-fields (:system-fields additional-run-fields))
                       run (sf-test-run->run-def additional-run-fields (get tst 1))]
-                  {:instance-id (:id instance)                   
+                  {:instance-id (:id instance)
                    :attributes run
-                   :steps run-steps})))))) 
+                   :steps run-steps}))))))
 
 (defn find-sf-testset [client [project-id display-action-logs] options testset-name]
   (let [testset (ll-find-testset client [project-id display-action-logs] testset-name)]