From 1c4cb01af54fda3533a03f431e603d2799338fec Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Sat, 23 Dec 2023 20:57:37 +0000 Subject: [PATCH] Renamed let binding for readability. --- .../the_great_game/gossip/news_items_test.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test/cc/journeyman/the_great_game/gossip/news_items_test.clj b/test/cc/journeyman/the_great_game/gossip/news_items_test.clj index a806033..00e374d 100644 --- a/test/cc/journeyman/the_great_game/gossip/news_items_test.clj +++ b/test/cc/journeyman/the_great_game/gossip/news_items_test.clj @@ -195,16 +195,16 @@ (deftest learn-tests (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 ;; already knows about adam :knowledge #{{:verb :sell :actor :adam :other :charles :object :wheat :quantity 10 :price 5 :location [:test-home]}}} - g' (learn-news-item - gossip + after (learn-news-item + before {:verb :sex :actor :adam :other :belinda :location [:test-home]})] (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") - (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")))))