     (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)))))
 
-;; TODO: test unit-ex (?)
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Movement
 

    (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)]

  (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 move"
        (is (= nil (game/check-can-move db game unit)))
        (is (= true (game/can-move? db game unit))))
