docs: global terminology update from kernel/core to harness

tests/chaos-qa.lisp

@@ -10,8 +10,8 @@
 (in-suite chaos-suite)
 
 (test malformed-ast-injection
-  "Verify that injecting a non-list AST doesn't crash the kernel."
-  (kernel-log "CHAOS: Injecting string as AST")
+  "Verify that injecting a non-list AST doesn't crash the harness."
+  (harness-log "CHAOS: Injecting string as AST")
   ;; This should be caught by handler-case in cognitive-loop or perceive
   (let ((malformed-stimulus '(:type :EVENT :payload (:sensor :buffer-update :ast "NOT A LIST"))))
     (finishes (ignore-errors (perceive-gate malformed-stimulus)))
@@ -19,7 +19,7 @@
 
 (test deep-recursion-stimulus
   "Verify that deep recursion is halted by the recursion breaker."
-  (kernel-log "CHAOS: Injecting deep recursion stimulus")
+  (harness-log "CHAOS: Injecting deep recursion stimulus")
   (clrhash org-agent::*skills-registry*)
   ;; Skill that always triggers another instance of itself
   (org-agent::defskill :infinite-skill
@@ -34,7 +34,7 @@
 
 (test missing-actuator-dispatch
   "Verify that dispatching to a non-existent actuator is handled."
-  (kernel-log "CHAOS: Dispatching to missing actuator")
+  (harness-log "CHAOS: Dispatching to missing actuator")
   (let ((action '(:type :REQUEST :target :ghost-actuator :payload (:action :boo))))
     (finishes (org-agent:dispatch-action action nil))))
 

tests/immune-system-tests.lisp

@@ -30,8 +30,8 @@
     
     ;; Since cognitive-loop is recursive and our core hooks inject a NEW stimulus,
     ;; we can't easily capture it in a single synchronous call without mocking cognitive-loop.
-    ;; However, we can check if kernel-log received the "SYSTEM ERROR" message.
-    (kernel-log "CLEAN LOG")
+    ;; However, we can check if harness-log received the "SYSTEM ERROR" message.
+    (harness-log "CLEAN LOG")
     (org-agent:process-signal stimulus)
     (let ((logs (context-get-system-logs 20)))
       ;; We expect the pipeline to at least acknowledge the tool error
@@ -46,7 +46,7 @@
     :neuro (lambda (ctx) (error "CRITICAL BRAIN FAILURE"))
     :symbolic nil)
   
-  (kernel-log "CLEAN LOG")
+  (harness-log "CLEAN LOG")
   (org-agent:process-signal '(:type :EVENT :payload (:sensor :test)))
   (let ((logs (context-get-system-logs 20)))
     ;; Check for the PIPELINE CRASH log

tests/pipeline-tests.lisp

@@ -85,8 +85,8 @@
     (is (member "mock-dependent" deps :test #'string-equal))))
 
 (test test-log-buffering
-  "Verify that kernel-log correctly populates the system logs."
-  (kernel-log "PSF TEST LOG")
+  "Verify that harness-log correctly populates the system logs."
+  (harness-log "PSF TEST LOG")
   (let ((logs (context-get-system-logs 5)))
     (is (cl:some (lambda (line) (search "PSF TEST LOG" line)) logs))))