Fix emacs-edit tests: export functions and use qualified names
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
- Add emacs-edit-* function exports to package.lisp - Update tests to use opencortex: prefix for function calls - All 82 tests now passing
This commit is contained in:
@@ -117,6 +117,11 @@
|
|||||||
#:set-tool-permission
|
#:set-tool-permission
|
||||||
#:check-tool-permission-gate
|
#:check-tool-permission-gate
|
||||||
|
|
||||||
|
;; --- Emacs Edit Skill ---
|
||||||
|
#:emacs-edit-generate-id
|
||||||
|
#:emacs-edit-id-format
|
||||||
|
#:emacs-edit-set-property
|
||||||
|
#:emacs-edit-set-todo
|
||||||
|
|
||||||
;; --- Security Vault ---
|
;; --- Security Vault ---
|
||||||
#:vault-get-secret
|
#:vault-get-secret
|
||||||
|
|||||||
@@ -10,25 +10,25 @@
|
|||||||
(in-suite emacs-edit-suite)
|
(in-suite emacs-edit-suite)
|
||||||
|
|
||||||
(test id-generation
|
(test id-generation
|
||||||
(let ((id1 (emacs-edit-generate-id))
|
(let ((id1 (opencortex:emacs-edit-generate-id))
|
||||||
(id2 (emacs-edit-generate-id)))
|
(id2 (opencortex:emacs-edit-generate-id)))
|
||||||
(is (plusp (length id1)))
|
(is (plusp (length id1)))
|
||||||
(is (not (string= id1 id2)))))
|
(is (not (string= id1 id2)))))
|
||||||
|
|
||||||
(test id-format
|
(test id-format
|
||||||
(let ((formatted (emacs-edit-id-format "abc12345")))
|
(let ((formatted (opencortex:emacs-edit-id-format "abc12345")))
|
||||||
(is (search "id:" formatted))))
|
(is (search "id:" formatted))))
|
||||||
|
|
||||||
(test property-setter
|
(test property-setter
|
||||||
(let ((ast (list :type :headline
|
(let ((ast (list :type :headline
|
||||||
:properties (list :ID "id:test123" :TITLE "Test")
|
:properties (list :ID "id:test123" :TITLE "Test")
|
||||||
:contents nil)))
|
:contents nil)))
|
||||||
(emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
|
(opencortex:emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
|
||||||
(is (string= (getf (getf ast :properties) :STATUS) "ACTIVE"))))
|
(is (string= (getf (getf ast :properties) :STATUS) "ACTIVE"))))
|
||||||
|
|
||||||
(test todo-setter
|
(test todo-setter
|
||||||
(let ((ast (list :type :headline
|
(let ((ast (list :type :headline
|
||||||
:properties (list :ID "id:todo001" :TITLE "Task")
|
:properties (list :ID "id:todo001" :TITLE "Task")
|
||||||
:contents nil)))
|
:contents nil)))
|
||||||
(emacs-edit-set-todo ast "id:todo001" "DONE")
|
(opencortex:emacs-edit-set-todo ast "id:todo001" "DONE")
|
||||||
(is (string= (getf (getf ast :properties) :TODO) "DONE"))))
|
(is (string= (getf (getf ast :properties) :TODO) "DONE"))))
|
||||||
Reference in New Issue
Block a user