amr/org-agent-contrib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: Audit terminology (org-agent -> opencortex)

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-14 16:03:37 -04:00
parent 6608fb5553
commit c5d3d8c5fa
15 changed files with 43 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
org-skill-tdd-runner.org
View File

@@ -51,18 +51,18 @@ Interfaces for background verification and kernel alerting. Source of truth is t
(let* ((projects-dir (or (uiop:getenv "PROJECTS_DIR") "projects/"))
(project-dir (format nil "~aorg-skill-~a/" projects-dir project-name))
(test-file (format nil "~atests/test-suite.lisp" project-dir)))
(org-agent:kernel-log "CI - Running tests for ~a..." project-name)
(opencortex:kernel-log "CI - Running tests for ~a..." project-name)
(if (uiop:file-exists-p test-file)
(multiple-value-bind (output error-output exit-code)
(uiop:run-program (list "sbcl" "--batch" "--load" test-file "--eval" "(uiop:quit)")
:ignore-error-status t :output :string :error-output :string)
(if (= exit-code 0)
(org-agent:kernel-log "CI SUCCESS - ~a passed all tests." project-name)
(opencortex:kernel-log "CI SUCCESS - ~a passed all tests." project-name)
(progn
(org-agent:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code)
(org-agent:inject-stimulus
(opencortex:kernel-log "CI FAILURE - ~a failed tests with exit code ~a" project-name exit-code)
(opencortex:inject-stimulus
`(:type :EVENT :payload (:sensor :test-failure :project ,project-name :text ,output :stderr ,error-output))))))
(org-agent:kernel-log "CI ERROR - No test suite found for ~a at ~a" project-name test-file))))
(opencortex:kernel-log "CI ERROR - No test suite found for ~a at ~a" project-name test-file))))
#+end_src
* Registration