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

REFAC: Global rename of org-agent to opencortex

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-14 12:10:11 -04:00
parent b58b780a44
commit 849c078c37
95 changed files with 662 additions and 642 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/communication-tests.lisp
View File

@@ -1,9 +1,9 @@
(defpackage :org-agent-tests
(:use :cl :fiveam :org-agent))
(in-package :org-agent-tests)
(defpackage :opencortex-tests
(:use :cl :fiveam :opencortex))
(in-package :opencortex-tests)
(def-suite communication-protocol-suite
:description "Test suite for org-agent Communication Protocol (communication protocol)")
:description "Test suite for opencortex Communication Protocol (communication protocol)")
(in-suite communication-protocol-suite)
(test test-framing
@@ -11,17 +11,17 @@
(let ((msg "(:type :EVENT :payload (:action :handshake))"))
;; As the Analyst, I expect a function 'frame-message' to exist
(is (string= "00002c(:type :EVENT :payload (:action :handshake))"
(org-agent:frame-message msg)))))
(opencortex:frame-message msg)))))
(test test-parse-message
"Verify that incoming framed strings are parsed into Lisp plists."
(let ((framed "00002c(:type :EVENT :payload (:action :handshake))"))
(is (equal '(:type :EVENT :payload (:action :handshake))
(org-agent:parse-message framed)))))
(opencortex:parse-message framed)))))
(test test-hello-handshake
"Verify the structure of the HELLO handshake message."
(let ((hello (org-agent:make-hello-message "0.1.0")))
(let ((hello (opencortex:make-hello-message "0.1.0")))
(is (eq :EVENT (getf hello :type)))
(is (eq :handshake (getf (getf hello :payload) :action)))
(is (string= "0.1.0" (getf (getf hello :payload) :version)))))
@@ -31,6 +31,6 @@
(let* ((ast '(:type :org-data :contents
((:type :HEADLINE :properties (:TITLE "No ID Here") :contents nil)
(:type :HEADLINE :properties (:ID "exists" :TITLE "Has ID") :contents nil))))
(found (org-agent::find-headline-missing-id ast)))
(found (opencortex::find-headline-missing-id ast)))
(is (not (null found)))
(is (string= "No ID Here" (getf (getf found :properties) :TITLE)))))