ALIGN: Rename Object Store to Memory and enrich literate text
This commit is contained in:
@@ -8,8 +8,8 @@
|
||||
(test test-local-roundtrip
|
||||
"Ensure RAM -> Disk -> RAM preserves data integrity."
|
||||
(let ((test-id "persist-test-1"))
|
||||
(setf (gethash test-id *object-store*) (make-org-object :id test-id :content "Integrity Check"))
|
||||
(setf (gethash test-id *memory*) (make-org-object :id test-id :content "Integrity Check"))
|
||||
(org-agent:persistence-dump-local)
|
||||
(clrhash *object-store*)
|
||||
(clrhash *memory*)
|
||||
(org-agent:persistence-load-local)
|
||||
(is (equal "Integrity Check" (org-object-content (gethash test-id *object-store*))))))
|
||||
(is (equal "Integrity Check" (org-object-content (gethash test-id *memory*))))))
|
||||
|
||||
Reference in New Issue
Block a user