Further work on documentation and thinking. Not all tests pass.
This commit is contained in:
parent
3fcf16e079
commit
bc7e0f44d3
13 changed files with 108 additions and 52 deletions
|
|
@ -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)))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue