simon/the-great-game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Much work on tidying documentation, not yet complete.

Browse source
This commit is contained in:
Simon Brooke 2020-04-15 16:40:59 +01:00
parent 7e7a55c8ec
commit 3fcf16e079
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
43 changed files with 1233 additions and 267 deletions
Download patch file Download diff file Expand all files Collapse all files

30
test/the_great_game/gossip/news_items_test.clj
View file

@ -23,6 +23,11 @@
:location [{:x 35 :y 23} :auchencairn :galloway :scotland]}]}
[:galloway :scotland])]
(is (= actual expected)))
(let [expected 2
actual (interest-in-location
{:home [{:x 35 :y 23} :auchencairn :galloway :scotland]}
[:galloway :scotland])]
(is (= actual expected)))
(let [expected 0
actual (interest-in-location
{:knowledge [{:verb :steal
@ -114,19 +119,16 @@
;; dates will not be and cannot be expected to be equal
actual (make-all-inferences
{:verb :rape :actor :adam :other :belinda :location :test-home})
actual' (map #(dissoc % :date) actual)]
actual' (set (map #(dissoc % :date) actual))]
(is (= actual' expected)))))
;; (deftest learn-tests
;; (testing "Learning from an interesting news item."
;; (let [expected {:home [{0 0} :test-home],
;; :knowledge ({:verb :rape, :actor :adam, :other :belinda, :location nil, :nth-hand 1}
;; {:verb :sex, :actor :belinda, :other :adam, :location nil, :nth-hand 1}
;; {:verb :attack, :actor :adam, :other :belinda, :location nil, :nth-hand 1}
;; {:verb :sex, :actor :adam, :other :belinda, :location nil, :nth-hand 1})}
;; actual (learn-news-item
;; {:home [{0, 0} :test-home]
;; :knowledge []}
;; {:verb :rape :actor :adam :other :belinda :location [:test-home]})
;; actual' (assoc actual :knowledge (map #(dissoc % :date) (:knowledge actual)))]
;; (is (= actual' expected)))))
(deftest learn-tests
(testing "Learning from an interesting news item."
(let [expected {:home [{0 0} :test-home],
:knowledge [{:verb :sex, :actor :adam, :other :belinda, :location nil, :nth-hand 1}
{:verb :sex, :actor :belinda, :other :adam, :location nil, :nth-hand 1}]}
actual (learn-news-item
{:home [{0, 0} :test-home] :knowledge []}
{:verb :sex :actor :adam :other :belinda :location [:test-home]})
actual' (assoc actual :knowledge (vec (map #(dissoc % :date) (:knowledge actual))))]
(is (= actual' expected)))))