gistfile1.clj

(defn make-test-board-fn [win-fn player expect]
  (fn [board]
    (is (= (win-fn board player) expect))))

(deftest winner-in-rows?-test
  (doseq [player [\X \Y]]
    (let [test-fn (make-test-board-fn winner-in-rows? player true)]
      (doseq [board (row-win-combinations player)]
        (test-fn board)))))

(deftest winner-in-rows?-test
  (doseq [player [\X \Y]]
    (let [test-fn (make-test-board-fn winner-in-rows? player true)]
      (dorun (map test-fn (row-win-combinations player))))

(deftest winner-in-rows?-test
  (dorun (map (fn [player]
                (let [test-fn (make-test-board-fn winner-in-rows? player true)]
                  (dorun (map test-fn (row-win-combinations player))))) 
              [\X \Y])))