24 lines
1.2 KiB
Clojure
24 lines
1.2 KiB
Clojure
(ns mw-engine.core-test
|
|
(:require [clojure.test :refer :all]
|
|
[mw-engine.core :refer :all]))
|
|
|
|
(deftest apply-rule-test
|
|
(testing "Application of a single rule"
|
|
(let [afn (eval
|
|
(fn [cell world]
|
|
(cond
|
|
(= (:state cell) :new)
|
|
(merge cell {:state :grassland}))))
|
|
pair (list afn "Test source")]
|
|
(is (nil? (apply-rule {:state :water} nil afn))
|
|
"Rule shouldn't fire when state is wrong")
|
|
(is (nil? (apply-rule {:state :water} nil pair))
|
|
"Rule shouldn't fire when state is wrong")
|
|
(is (= (:state (apply-rule {:state :new} nil afn)) :grassland)
|
|
"Rule should fire when state is correct")
|
|
(is (= (:state (apply-rule {:state :new} nil pair)) :grassland)
|
|
"Rule should fire when state is correct")
|
|
(is (nil? (:rule (apply-rule {:state :new} nil afn)))
|
|
"No rule text if not provided")
|
|
(is (= (:rule (apply-rule {:state :new} nil pair)) "Test source")
|
|
"Rule text cached on cell if provided")))) |