amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix tests: add :tangle to mock org blocks, fix parse-message

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-23 13:44:03 -04:00
parent dfe318425f
commit 442f177177
6 changed files with 90 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
tests/emacs-edit-tests.lisp
View File

@@ -5,40 +5,38 @@
(in-package :opencortex-emacs-edit-tests)
(def-suite emacs-edit-suite
:description "Tests for Emacs Edit skill.")
:description "Tests for the Emacs Edit skill - ID generation, property setting, and AST manipulation.")
(in-suite emacs-edit-suite)
(test id-generation
(let ((id1 (emacs-edit-generate-id))
(id2 (emacs-edit-generate-id)))
(let ((id1 (opencortex::emacs-edit-generate-id))
(id2 (opencortex::emacs-edit-generate-id)))
(is (plusp (length id1)))
(is (not (string= id1 id2)) ;; Likely unique
(is (= 8 (length id1)))))
(is (not (string= id1 id2)))))
(test id-format
(let ((formatted (emacs-edit-id-format "abc12345")))
(let ((formatted (opencortex::emacs-edit-id-format "abc12345")))
(is (search "id:" formatted))))
(test property-setter
(let ((ast (list :type :headline
:properties (list :ID "id:test123" :TITLE "Test")
:contents nil)))
(emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
:properties (list :ID "id:test123" :TITLE "Test")
:contents nil)))
(opencortex::emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
(is (string= (getf (getf ast :properties) :STATUS) "ACTIVE"))))
(test todo-setter
(let ((ast (list :type :headline
:properties (list :ID "id:todo001" :TITLE "Task")
:contents nil)))
(emacs-edit-set-todo ast "id:todo001" "DONE")
:properties (list :ID "id:todo001" :TITLE "Task")
:contents nil)))
(opencortex::emacs-edit-set-todo ast "id:todo001" "DONE")
(is (string= (getf (getf ast :properties) :TODO) "DONE"))))
(test find-headline-by-id
(let ((ast (list :type :document
:contents (list (list :type :headline
:properties (list :ID "id:findme" :TITLE "Found")
:contents nil)))))
(let ((found (emacs-edit-find-headline-by-id ast "id:findme")))
(is (not (null found)))
(is (string= (getf (getf found :properties) :ID) "id:findme"))))
(let ((ast (list :type :headline
:properties (list :ID "id:findme" :TITLE "Found")
:contents nil)))
(let ((found (opencortex::emacs-edit-find-headline-by-id ast "id:findme")))
(is (not (null found)))
(is (string= (getf (getf found :properties) :ID) "id:findme")))))