             result (move-down board)]
         (is (failed? result))
         (is (= "EmptyCoordinate" (result-message result)))))))
+
+(run-tests)

    (is (not old-element))
    (is new-element)))

(deftest all-movement

  (testing "all movement complete"
    (test-complete-move board [2 2] [1 1])
    (test-complete-move board [2 2] [1 2])
    (test-complete-move board [2 2] [1 3])

(ns obb-rules.actions.move-test
  (:use clojure.test
        midje.sweet
        obb-rules.action
        obb-rules.actions.move
        obb-rules.board
