                            (engine/take-space :space10)
                            (engine/take-space :space15)
                            (engine/player-win? :player2))))
+          (it "snapshot: player2 should win 4x4"
+              (should= true                      
+                       (do (engine/put! :board-size 4) 
+                           (engine/change-player-turn)
+                           (engine/take-space :space0)
+                           (engine/take-space :space5)
+                           (engine/take-space :space10)
+                           (engine/take-space :space15)
+                           (engine/player-win? @game-state :player2))))
+          ;; -----
           (it "player1 should not win on 3x3"
               (should= nil
                        (do (engine/put! :board-size 3) 

                           (engine/change-player-turn)
                           (engine/take-space :space3)
                           (engine/all-remaining-spaces))))
          (it "should have 0 spaces left"
              (should= #{}
                       (do (engine/take-space :space0)

                           (engine/take-space :space1)
                           (engine/take-space :space2)
                           (engine/player-win? :player1))))
          (it "snapshot: player1 should win on 3x3"
              (should= true
                       (do (engine/put! :board-size 3) 
                           (engine/take-space :space0)
                           (engine/take-space :space1)
                           (engine/take-space :space2)
                           (engine/player-win? @game-state :player1))))
          ;; -----
          (it "player2 should win on 3x3"
              (should= true
                       (do (engine/put! :board-size 3)
