   (let [db @(helper/create-scenario-conn :sterlings-aruba-multiplayer)
         game (app/current-game db)
         unit (game/unit-at db game 2 2)]
+
     ;; TODO: update for state machine changes
+
     #_(testing "units that have not yet performed any actions can attack"
         (is (= nil (game/check-can-attack db game unit)))
         (is (= true (game/can-attack? db game unit))))

        (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

