ARCH: Microkernel Decoupling - Moved State Persistence to user-space dynamic skill

tests/communication-tests.lisp

@@ -2,9 +2,9 @@
   (:use :cl :fiveam :org-agent))
 (in-package :org-agent-tests)
 
-(def-suite harness-protocol-suite
-  :description "Test suite for org-agent Communication Protocol (Harness Communication)")
-(in-suite harness-protocol-suite)
+(def-suite communication-protocol-suite
+  :description "Test suite for org-agent Communication Protocol (communication protocol)")
+(in-suite communication-protocol-suite)
 
 (test test-framing
   "Verify that messages are correctly prefixed with a 6-character hex length."

tests/org-agent-test.el

@@ -15,7 +15,7 @@
       (should (string= "000014(:type :EVENT :id 1)" captured-framed)))))
 
 (ert-deftest test-org-agent-parsing ()
-  "Verify that the filter correctly parses Harness Communication framed messages."
+  "Verify that the filter correctly parses communication protocol framed messages."
   (let ((mock-buffer (generate-new-buffer " *org-agent-test*"))
         (received-plist nil))
     (cl-letf (((symbol-function 'org-agent--handle-message)

tests/persistence-tests.lisp

@@ -1,15 +0,0 @@
-(defpackage :org-agent-persistence-tests
-  (:use :cl :fiveam :org-agent))
-(in-package :org-agent-persistence-tests)
-
-(def-suite persistence-suite :description "Tests for State Persistence Layer.")
-(in-suite persistence-suite)
-
-(test test-local-roundtrip
-  "Ensure RAM -> Disk -> RAM preserves data integrity."
-  (let ((test-id "persist-test-1"))
-    (setf (gethash test-id *memory*) (make-org-object :id test-id :content "Integrity Check"))
-    (org-agent:persistence-dump-local)
-    (clrhash *memory*)
-    (org-agent:persistence-load-local)
-    (is (equal "Integrity Check" (org-object-content (gethash test-id *memory*))))))