docs: add Contract sections + tag tests to contract items (Tier 2 — 10 files)

org/core-loop-perceive.org

@@ -27,6 +27,14 @@ The `*loop-async-sensors*` list defines which sensor types are processed in dedi
 
 The depth limit prevents runaway recursive loops. A signal that generates another signal that generates another signal can infinite-loop. If depth exceeds a threshold (10), the signal is silently dropped rather than processed. This is the metabolic loop's circuit breaker.
 
+** Contract
+
+1. (loop-gate-perceive signal): normalizes sensory input. Routes by
+   sensor type (~:buffer-update~, ~:point-update~, ~:interrupt~,
+   ~:approval-required~) and signal type (~:EVENT~, ~:RESPONSE~).
+   Sets ~:status :perceived~ on completion. Returns the signal.
+2. (perceive-gate signal): thin alias for ~loop-gate-perceive~.
+
 * Implementation
 
 ** Package Context
@@ -253,6 +261,7 @@ Verifies that the perceive gate correctly ingests AST nodes into memory and that
 (in-suite pipeline-perceive-suite)
 
 (test test-loop-gate-perceive
+  "Contract 1: :buffer-update ingests AST and sets :perceived status."
   (clrhash passepartout::*memory-store*)
   (let* ((signal (list :type :EVENT :payload (list :sensor :buffer-update :ast (list :type :HEADLINE :properties (list :ID "test-node" :TITLE "Test") :contents nil))))
          (result (loop-gate-perceive signal)))
@@ -260,24 +269,25 @@ Verifies that the perceive gate correctly ingests AST nodes into memory and that
     (is (not (null (gethash "test-node" passepartout::*memory-store*))))))
 
 (test test-depth-limiting
+  "Edge: depth 11 signals are rejected by the pipeline."
   (let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
     (is (null (process-signal runaway-signal)))))
 
 (test test-loop-gate-perceive-unknown-sensor
-  "Unknown sensors should pass through and still reach :perceived status."
+  "Contract 1: unknown sensors pass through and reach :perceived."
   (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :custom-metric)))
          (result (loop-gate-perceive signal)))
     (is (eq :perceived (getf result :status)))))
 
 (test test-loop-gate-perceive-no-ast
-  "A :buffer-update with no AST should not crash and reach :perceived."
+  "Contract 1: :buffer-update without AST doesn't crash, reaches :perceived."
   (clrhash passepartout::*memory-store*)
   (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :buffer-update)))
          (result (loop-gate-perceive signal)))
     (is (eq :perceived (getf result :status)))))
 
 (test test-depth-limiting-normal
-  "Signals at depth 10 or below should not be rejected by the depth guard."
+  "Contract 1: signals at normal depth pass through without rejection."
   (let ((normal-signal (list :type :EVENT :depth 5 :payload (list :sensor :heartbeat))))
     (is (not (eq :rejected (getf normal-signal :status)))
         "Signal at normal depth should not be rejected")))