53 lines
1.9 KiB
Clojure
53 lines
1.9 KiB
Clojure
;; SPDX-License-Identifier: Apache-2.0
|
|
;; SPDX-FileCopyrightText: 2022 Sebastian Crane <seabass-labrax@gmx.com>
|
|
|
|
(ns bot-test
|
|
(:require [clojure.test :refer :all]
|
|
[bot :refer :all]))
|
|
|
|
(def test-state '{:games {:hypothetical-shooter #{"abc" "xyz" "123"}
|
|
:quasi-rts #{"abc" "123"}
|
|
:imaginary-rpg #{"xyz" "abc"}}})
|
|
|
|
(deftest keywordise-game-test
|
|
(is (= :quasi-rts
|
|
(keywordise-game "Quasi-RTS"))))
|
|
|
|
(deftest sort-case-insensitive-test
|
|
(is (= ["A" "b" "C"]
|
|
(sort-case-insensitive ["C" "A" "b"]))))
|
|
|
|
(deftest match-string-test
|
|
(is (= '"Anyone ready for quasi-Rts? 123 abc"
|
|
(match-string :state test-state :game "quasi-Rts"))))
|
|
|
|
(deftest list-players-string-test
|
|
(is (= "Players of HYPOTHETICAL-shooter: _123_ _abc_ _xyz_"
|
|
(list-players-string :state test-state :game "HYPOTHETICAL-shooter"))))
|
|
|
|
(deftest add-player-string-test
|
|
(is (= "Added abc to the list of players for Quasi-Rts!"
|
|
(add-player-string :game "Quasi-Rts" :player "abc"))))
|
|
|
|
(deftest remove-player-string-test
|
|
(is (= "Removed abc from the list of players for hypothetical-shooter!"
|
|
(remove-player-string :game "hypothetical-shooter" :player "abc"))))
|
|
|
|
(deftest list-games-string-test
|
|
(is (= "Games with a list of players: hypothetical-shooter, imaginary-rpg, quasi-rts"
|
|
(list-games-string :state test-state))))
|
|
|
|
(deftest split-message-test
|
|
(is (= {:command "!match" :game "Quasi-Rts" :game-keyword :quasi-rts}
|
|
(split-message "!match Quasi-Rts "))))
|
|
|
|
(deftest dispatch-command-test
|
|
(let [state-atom (atom test-state)]
|
|
(is (and
|
|
(= "Added 123 to the list of players for Imaginary-RPG!"
|
|
(dispatch-command state-atom "123" "!add Imaginary-RPG"))
|
|
(= {:games {:hypothetical-shooter #{"abc" "xyz" "123"}
|
|
:quasi-rts #{"abc" "123"}
|
|
:imaginary-rpg #{"xyz" "abc" "123"}}}
|
|
@state-atom)))))
|