 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;(test-king-moves)
 (test-starting-moves)
-
+  (test-king-cannot-move-to-a-location-under-attack)
+


(defn test-knight-moves[]
  (is (= 8 
         (count (moves (string->position "  n\n   \n   " :black) :black))

         )))
(test-knight-moves)
(defn test-moves[]
  (println "test-moves")
  (moves (string->position "R" :white) :white)
  )

(defn test-starting-moves[]
  (let [position starting-position]
    (map #(move->algebraic-notation position %) 
         (moves starting-position :black))))
(defn run-tests[]
  (test-pawn-moves)
  (test-position->string)
  (test-starting-moves)


(def debug false)

(defn my-is-a?[my-type obj]
  (and (map? obj)
  (= my-type (:type obj))))

(defn piece-at-location[position location]
  (get (:piece-locations position) location))
