     (testing "undamaged units cannot be repaired"
       (is (thrown? ExceptionInfo (game/check-can-repair db game unit)))
       (is (= false (game/can-repair? db game unit))))
+
     ;; TODO: update for state machine changes
+
     #_(testing "damaged units that have not performed any actions can be repaired"
         (let [db' (d/db-with db [[:db/add (e unit) :unit/count 9]])
               unit' (game/unit-at db' game 2 2)]

              terrain' (game/terrain-at db' game 2 1)]
          (is (thrown? ExceptionInfo (game/check-capturable db' game unit' terrain')))
          (is (= false (game/can-capture? db' game unit' terrain')))))
    (testing "already capturing units cannot capture"
      (let [db' (d/db-with db (concat (game/teleport-tx db game 2 2 2 1)
                                      [[:db/add (e unit) :unit/capturing true]]))

    (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

