3.0 KiB
3.0 KiB
SKILL: Automated TDD Runner (Universal Literate Note)
- Overview
- Phase A: Demand (PRD)
- Phase B: Blueprint (PROTOCOL)
- Phase D: Build (Implementation)
- Registration
Overview
The Automated TDD Runner provides the system with Continuous Integration (CI) capabilities. It monitors active project directories and autonomously executes test suites whenever a file change is detected, ensuring that the kernel remains in a "Green" (verified) state.
Phase A: Demand (PRD)
1. Purpose
Define automated behaviors for background test execution and regression alerting.
2. User Needs
- Background Execution: Run `FiveAM` (Lisp) or `pytest` (Python) suites without user intervention.
- Trigger on Perception: Execute tests whenever a `:buffer-update` or `:file-saved` event occurs.
- Immediate Alerting: Inject a high-priority `:EVENT` into the kernel if a test fails.
- System Locking: Option to prevent further actions if the project is in a "RED" (failing) state.
3. Success Criteria
TODO Automatic test suite discovery logic verification
TODO Background execution of FiveAM test suite
TODO Regression event injection on failure
TODO Integration with the Self-Fix agent
Phase B: Blueprint (PROTOCOL)
1. Architectural Intent
Interfaces for background verification and kernel alerting. Source of truth is the project's `tests/` directory and the result of the test runner.
2. Semantic Interfaces
(defun tdd-runner-perceive-change (project-name)
"Triggered when a project file is modified; initiates the test loop.")
(defun tdd-runner-execute (project-name)
"Executes the standard test suite for the given project.")
Phase D: Build (Implementation)
Test Execution
(defun tdd-runner-execute (project-name)
(let* ((projects-dir (or (uiop:getenv "PROJECTS_DIR") "projects/"))
(test-dir (format nil "~aorg-skill-~a/tests/" projects-dir project-name))
(lisp-tests (format nil "~atest-suite.lisp" test-dir))
(python-tests (format nil "~asimulate_*.py" test-dir)))
(kernel-log "CI - Running tests for ~a..." project-name)
;; Logic to execute based on available test files
(if (uiop:file-exists-p lisp-tests)
(format nil "Executing FiveAM for ~a" project-name)
(format nil "Executing Python simulation for ~a" project-name))))
Registration
(defskill :skill-tdd-runner
:priority 95 ; High priority safety gate
:trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :buffer-update))
:neuro (lambda (context) nil)
:symbolic (lambda (action context)
(let ((file (getf (getf context :payload) :file)))
(when (and file (search "projects/" file))
;; Extract project name and run tests
(tdd-runner-execute "extracted-project-name")))))