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

Renamed let binding for readability.

Browse source
This commit is contained in:
Simon Brooke 2023-12-23 20:57:37 +00:00
parent e9a51f060f
commit 1c4cb01af5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/cc/journeyman/the_great_game/gossip/news_items_test.clj
View file

@ -195,16 +195,16 @@
(deftest learn-tests (deftest learn-tests
(testing "Learning from an interesting news item." (testing "Learning from an interesting news item."
(let [gossip {:home [{:x 0 :y 0} :test-home] (let [before {:home [{:x 0 :y 0} :test-home]
:interesting-verbs all-known-verbs :interesting-verbs all-known-verbs
;; already knows about adam ;; already knows about adam
:knowledge #{{:verb :sell :actor :adam :other :charles :object :wheat :quantity 10 :price 5 :location [:test-home]}}} :knowledge #{{:verb :sell :actor :adam :other :charles :object :wheat :quantity 10 :price 5 :location [:test-home]}}}
g' (learn-news-item after (learn-news-item
gossip before
{:verb :sex :actor :adam :other :belinda :location [:test-home]})] {:verb :sex :actor :adam :other :belinda :location [:test-home]})]
(and (and
(is (known-item? g' {:verb :sex :actor :adam :other :belinda :location [:test-home]}) (is (known-item? after {:verb :sex :actor :adam :other :belinda :location [:test-home]})
"has learned the item that was given") "has learned the item that was given")
(is (known-item? g' {:verb :sex, :actor :belinda, :other :adam, :location [:test-home]}) (is (known-item? after {:verb :sex, :actor :belinda, :other :adam, :location [:test-home]})
"has learned information that can be inferred from that item"))))) "has learned information that can be inferred from that item")))))