forked from LibreGaming/matchbot
31 lines
1.1 KiB
Clojure
31 lines
1.1 KiB
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 get-players-of-game-test
|
|
(is (=
|
|
'#{"player-two" "player-four"}
|
|
(get-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]))))
|
|
|
|
(deftest remove-player-of-game-test
|
|
(is (=
|
|
'#{"player-one" "player-three"}
|
|
(get-in (remove-player-of-game test-state :imaginary-rpg "player-four") [:games :imaginary-rpg]))))
|
|
|
|
(deftest remove-game-test
|
|
(is (=
|
|
'#{:hypothetical-shooter :imaginary-rpg}
|
|
(set (keys (:games (remove-game test-state :quasi-rts)))))))
|