 
 #_(defn game-undo-properties
     [old-game]
-    (prop/for-all [coord coord-gen]
+    (prop/for-all [coord coordinate-gen]
       (let [new-game (game/play-at old-game coord)]
         (or
           (= old-game new-game)

;; Generators
;; ----------------------------------------------------------------------------

(def coord-gen (s/gen ::board/coord))

(def initial-empty-cell-count
  (- (* board/width board/height) (* 4 cst/init-block-count)))

(def game-gen
  (gen/fmap
    (fn [coord] (play-moves (game/new-game) coord))
    (gen/vector coord-gen 0 initial-empty-cell-count)))


;; ----------------------------------------------------------------------------


(defn game-move-properties
  [old-game]
  (prop/for-all [coord coordinate-gen]
    (let [new-game (game/play-at old-game coord)]
      (or
        (= old-game new-game)                               ;; TODO - test contained in empty cells
