Further work on documentation and thinking. Not all tests pass.

This commit is contained in:
Simon Brooke 2020-04-15 18:46:43 +01:00
parent 3fcf16e079
commit bc7e0f44d3
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
13 changed files with 108 additions and 52 deletions

View file

@ -119,7 +119,7 @@
;; 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' (set (map #(dissoc % :date) actual))]
actual' (set (map #(dissoc % :time-stamp) actual))]
(is (= actual' expected)))))
(deftest learn-tests
@ -130,5 +130,5 @@
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))))]
actual' (assoc actual :knowledge (vec (map #(dissoc % :time-stamp) (:knowledge actual))))]
(is (= actual' expected)))))