    [datascript.core :as d]
    [devcards.core :as dc :refer-macros [defcard deftest]]
    [zetawar.app :as app]
+   [zetawar.data :as data]
    [zetawar.db :as db :refer [e qe]]
-   [zetawar.data :as data]
    [zetawar.game :as game]
    [zetawar.test-helper :as helper]
    [zetawar.util :refer [breakpoint inspect]]))

        (let [db' (d/db-with db [[:db/add (e unit) :unit/repaired true]])
              unit' (game/unit-at db' game 2 2)]
          (is (thrown? ExceptionInfo (game/check-can-repair db' game unit')))
          (is (= false (game/can-repair? db' game unit')))))))

(deftest test-repair-tx
  (let [conn (helper/create-scenario-conn :sterlings-aruba-multiplayer)

    (d/transact conn (game/teleport-tx @conn game 2 1 7 6))
    (is (game/on-capturable-base? @conn game (game/unit-at @conn game 7 6)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Movement

