Skip DB teardown when --leave-db-running option specified

Closes #45

Author: ligurio

src/tarantool/counter.clj

@@ -48,8 +48,9 @@
                 (assoc op :type :ok :value value))))))
 
   (teardown! [_ test]
-    (cl/with-conn-failure-retry conn
-      (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)])))
+    (when-not (:leave-db-running? test)
+      (cl/with-conn-failure-retry conn
+        (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)]))))
 
   (close! [_ test]))
 

src/tarantool/register.clj

@@ -74,8 +74,9 @@
                     (assoc op :type :fail)))))))
 
   (teardown! [_ test]
-    (cl/with-conn-failure-retry conn
-      (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)])))
+    (when-not (:leave-db-running? test)
+      (cl/with-conn-failure-retry conn
+        (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)]))))
 
   (close! [_ test]))
 

src/tarantool/sets.clj

@@ -45,8 +45,9 @@
                      (assoc op :type :ok, :value)))))))
 
   (teardown! [_ test]
-    (cl/with-conn-failure-retry conn
-      (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)])))
+    (when-not (:leave-db-running? test)
+      (cl/with-conn-failure-retry conn
+        (j/execute! conn [(str "DROP TABLE IF EXISTS " table-name)]))))
 
   (close! [_ test]))