;; SPDX-License-Identifier: Apache-2.0
;; SPDX-FileCopyrightText: 2021 Sebastian Crane <seabass-labrax@gmx.com>

(ns game-test
  (:require [clojure.test :refer :all]
            [game :refer :all]))

(def test-state '{:games {:hypothetical-shooter #{"player-one" "player-two" "player-three"}
                          :quasi-rts #{"player-two" "player-four"}
                          :imaginary-rpg #{"player-one" "player-three" "player-four"}}})

(deftest players-of-game-test
  (is (=
       '#{"player-two" "player-four"}
       (players-of-game test-state :quasi-rts))))

(deftest add-player-of-game-test
  (is (=
       '#{"player-one" "player-two" "player-four"}
       (get-in (add-player-of-game test-state :quasi-rts "player-one") [:games :quasi-rts]))))