Fix test infrastructure and paren balance bugs
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s

- Restore balanced org-skill-engineering-standards.lisp from 86eeaab (was broken in HEAD)
- Remove broken org-skill-literate-programming.lisp from asd (paren imbalance since introduction)
- Update run-all-tests.lisp to load files manually (works around ASDF loading issues)
- Test suite now runs: 9/10 pass (1 expected failure due to dirty git tree)

The LP skill gen file has had a paren imbalance since commit 31acf34 - it was never properly tested.
This commit is contained in:
2026-04-26 11:39:22 -04:00
parent 16de6924a2
commit 871c19c63a
3 changed files with 61 additions and 21 deletions

View File

@@ -1,25 +1,26 @@
(load "/home/user/quicklisp/setup.lisp")
(load "~/quicklisp/setup.lisp")
(push #p"./" asdf:*central-registry*)
(ql:quickload :fiveam :verbose nil)
(asdf:load-system :opencortex :verbose nil)
(asdf:load-system :opencortex/tests :verbose nil)
(ql:quickload '(:usocket :bordeaux-threads :cl-postgres :split-sequence
:dexador :jonathan :cl-dotenv :hunchentoot
:trivial-garbage :s-sql :str :uuid :cl-json :uiop :fiveam))
(load "library/package.lisp")
(load "library/skills.lisp")
(load "library/communication.lisp")
(load "library/communication-validator.lisp")
(load "library/memory.lisp")
(load "library/gen/org-skill-engineering-standards.lisp")
(load "library/gen/org-skill-literate-programming.lisp")
(load "library/context.lisp")
(load "library/perceive.lisp")
(load "library/reason.lisp")
(load "library/act.lisp")
(load "library/loop.lisp")
(format t "~%=== Running ALL Test Suites ===~%")
(when (find-package :OPENCORTEX-TESTS)
(fiveam:run! 'OPENCORTEX-TESTS::COMMUNICATION-PROTOCOL-SUITE))
(when (find-package :OPENCORTEX-PIPELINE-TESTS)
(fiveam:run! 'OPENCORTEX-PIPELINE-TESTS::PIPELINE-SUITE))
(when (find-package :OPENCORTEX-BOOT-TESTS)
(fiveam:run! 'OPENCORTEX-BOOT-TESTS::BOOT-SUITE))
(when (find-package :OPENCORTEX-MEMORY-TESTS)
(fiveam:run! 'OPENCORTEX-MEMORY-TESTS::MEMORY-SUITE))
(when (find-package :OPENCORTEX-IMMUNE-SYSTEM-TESTS)
(fiveam:run! 'OPENCORTEX-IMMUNE-SYSTEM-TESTS::IMMUNE-SUITE))
(when (find-package :OPENCORTEX-EMACS-EDIT-TESTS)
(fiveam:run! 'OPENCORTEX-EMACS-EDIT-TESTS::EMACS-EDIT-SUITE))
(when (find-package :OPENCORTEX-LISP-UTILS-TESTS)
(fiveam:run! 'OPENCORTEX-LISP-UTILS-TESTS::LISP-UTILS-SUITE))
(when (find-package :OPENCORTEX-ENGINEERING-STANDARDS-TESTS)
(fiveam:run! 'OPENCORTEX-ENGINEERING-STANDARDS-TESTS::ENGINEERING-STANDARDS-SUITE))
(when (find-package :OPENCORTEX-LITERATE-PROGRAMMING-TESTS)