     (is (true? (vertical-line? vertical-win-second)))
     (is (true? (vertical-line? vertical-win-third)))
 
+    (is (true? (diagonal-line? diagonal-win)))
+    (is (true? (diagonal-line? diagonal-win-second)))
+
     (is (false? (player-win?)))
     (is (true? (player-win? horizontal-win))))
 )

   [nil nil \o]
   [nil nil \o]])



(deftest tic-tac-toe-test



(def win (repeat 3 (repeat 3 \x)))

(def horizontal-win
  [[\o \o \o]
   [nil nil nil]
   [nil nil nil]])
(def horizontal-win-second
  [[nil nil nil]
   [\o \o \o]
