FIX: Correct all tangle paths and regenerate Lisp sources
This commit is contained in:
11
tests/memory-suite-tests.lisp
Normal file
11
tests/memory-suite-tests.lisp
Normal file
@@ -0,0 +1,11 @@
|
||||
(defpackage :org-agent-memory-tests
|
||||
(:use :cl :fiveam :org-agent))
|
||||
(in-package :org-agent-memory-tests)
|
||||
|
||||
(def-suite memory-suite :description "Tests for Homoiconic Memory.")
|
||||
(in-suite memory-suite)
|
||||
|
||||
(test test-id-injection
|
||||
(let* ((node (list :type :HEADLINE :properties nil))
|
||||
(normalized (org-agent::memory-ensure-id node)))
|
||||
(is (not (null (getf (getf normalized :properties) :ID))))))
|
||||
Reference in New Issue
Block a user