Refactoring

Author: Vikasg7

test/clj_chess/perft_test.clj

@@ -24,28 +24,28 @@
 
 (deftest perft-test
   (testing "Default fen"
-    (is (= (let [state (fen->state "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1")]
-           (mapv #(perft state %) [1 2 3]))
+    (is (let [state (fen->state "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1")]
+        (= (mapv #(perft state %) [1 2 3]))
            [20 400 8902])))
   (testing "Kiwipete"
-    (is (= (let [state (fen->state "r3k2r/p1ppqpb1/bn2pnp1/3PN3/1p2P3/2N2Q1p/PPPBBPPP/R3K2R w KQkq - 0 1")]
-           (mapv #(perft state %) [1 2 3]))
+    (is (let [state (fen->state "r3k2r/p1ppqpb1/bn2pnp1/3PN3/1p2P3/2N2Q1p/PPPBBPPP/R3K2R w KQkq - 0 1")]
+        (= (mapv #(perft state %) [1 2 3]))
            [48 2039 97862])))
   (testing "Position 3"
-    (is (= (let [state (fen->state "8/2p5/3p4/KP5r/1R3p1k/8/4P1P1/8 w - - 0 1")]
-           (mapv #(perft state %) [1 2 3 4]))
+    (is (let [state (fen->state "8/2p5/3p4/KP5r/1R3p1k/8/4P1P1/8 w - - 0 1")]
+        (= (mapv #(perft state %) [1 2 3 4]))
            [14 191 2812 43238])))
   (testing "Position 4"
-    (is (= (let [state (fen->state "r3k2r/Pppp1ppp/1b3nbN/nP6/BBP1P3/q4N2/Pp1P2PP/R2Q1RK1 w kq - 0 1")]
-           (mapv #(perft state %) [1 2 3]))
+    (is (let [state (fen->state "r3k2r/Pppp1ppp/1b3nbN/nP6/BBP1P3/q4N2/Pp1P2PP/R2Q1RK1 w kq - 0 1")]
+        (= (mapv #(perft state %) [1 2 3]))
            [6 264 9467])))
   (testing "Position 5"
-    (is (= (let [state (fen->state "rnbq1k1r/pp1Pbppp/2p5/8/2B5/8/PPP1NnPP/RNBQK2R w KQ - 1 8")]
-           (mapv #(perft state %) [1 2 3]))
+    (is (let [state (fen->state "rnbq1k1r/pp1Pbppp/2p5/8/2B5/8/PPP1NnPP/RNBQK2R w KQ - 1 8")]
+        (= (mapv #(perft state %) [1 2 3]))
            [44 1486 62379])))
   (testing "Position 6"
-    (is (= (let [state (fen->state "r4rk1/1pp1qppp/p1np1n2/2b1p1B1/2B1P1b1/P1NP1N2/1PP1QPPP/R4RK1 w - - 0 10")]
-           (mapv #(perft state %) [1 2 3]))
+    (is (let [state (fen->state "r4rk1/1pp1qppp/p1np1n2/2b1p1B1/2B1P1b1/P1NP1N2/1PP1QPPP/R4RK1 w - - 0 10")]
+        (= (mapv #(perft state %) [1 2 3]))
            [46 2079 89890]))))
 
 (run-tests)