REFACTOR: Explanatory Core Architecture & Terminology Alignment

tests/pipeline-tests.lisp

@@ -9,7 +9,6 @@
 (defun setup-mock-skills ()
   "Register mock skills for testing."
   (clrhash org-agent::*skills-registry*)
-  
   (org-agent::defskill :mock-refactor
     :priority 100
     :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :command) :organize-subtree))
@@ -19,7 +18,6 @@
                   :payload (:action :refactor-subtree 
                             :target-id nil 
                             :properties (("ID" . "node-123"))))))
-
   (org-agent::defskill :mock-safety
     :priority 50
     :trigger (lambda (ctx) t) ; always triggers
@@ -86,9 +84,9 @@
 
 (test test-log-buffering
   "Verify that harness-log correctly populates the system logs."
-  (harness-log "PSF TEST LOG")
+  (harness-log "Engineering TEST LOG")
   (let ((logs (context-get-system-logs 5)))
-    (is (cl:some (lambda (line) (search "PSF TEST LOG" line)) logs))))
+    (is (cl:some (lambda (line) (search "Engineering TEST LOG" line)) logs))))
 
 (test test-global-awareness-assembly
   "Verify that context-assemble-global-awareness reports active projects."
@@ -103,25 +101,15 @@
   (clrhash org-agent::*object-store*)
   (clrhash org-agent::*history-store*)
   (setf org-agent::*object-store-snapshots* nil)
-  
   ;; State A
   (ingest-ast (list :type :HEADLINE :properties (list :ID "node-1" :TITLE "State A") :contents nil))
-  
   (setup-mock-skills)
-  ;; Skill that crashes in Symbolic Gate
   (org-agent::defskill :crashing-skill
     :priority 200
     :trigger (lambda (ctx) t)
     :neuro (lambda (ctx) (list :type :REQUEST :payload (list :action :eval :code "(error \"BOOM\")")))
-    :symbolic (lambda (action ctx) (error "CRASH IN SYSTEM 2")))
-
-  ;; Run pipeline. This turn will:
-  ;; 1. Perceive (Take snapshot of State A)
-  ;; 2. Neuro (Think)
-  ;; 3. Decide (Crash!)
-  ;; 4. Rollback to State A.
+    :symbolic (lambda (action ctx) (error "CRASH IN DETERMINISTIC ENGINE")))
   (process-signal (list :type :EVENT :payload (list :sensor :test)))
-  
   ;; Verify that we are still in State A
   (let ((obj (lookup-object "node-1")))
     (is (not (null obj)))