forked from LibreGaming/matchbot
21 lines
765 B
Clojure
21 lines
765 B
Clojure
;; 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]))))
|