Amr Gharbeia
43dbe3cf2d
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 8s
- Fix critical paren balance issues across harness/skills.org, act.org, loop.org, memory.org, and skills/self-edit|emacs-edit.org - Add :reload-skill cognitive tool for hot-reloading without restart - Add :generate-embeddings tool and self-edit hot-reload infrastructure - Wire all new skills (self-edit, emacs-edit, lisp-utils) into main ASDF - Regenerate all .lisp tangled files via emacs --batch org-babel-tangle - Add :opencortex/tests ASDF system with 14 test suites - Fix test files to compile cleanly (self-edit-tests symbol vis, etc.)
55 lines
1.7 KiB
Common Lisp
55 lines
1.7 KiB
Common Lisp
(defpackage :opencortex-lisp-validator-tests
|
|
(:use :cl :fiveam :opencortex)
|
|
(:export #:lisp-validator-suite))
|
|
|
|
(in-package :opencortex-lisp-validator-tests)
|
|
|
|
(def-suite lisp-validator-suite
|
|
:description "Tests for the Lisp Validator structural, syntactic, and semantic gates")
|
|
|
|
(in-suite lisp-validator-suite)
|
|
|
|
(test structural-balanced
|
|
(let ((result (opencortex::lisp-validator-check-structural "(+ 1 2)")))
|
|
(is (eq result t))))
|
|
|
|
(test structural-unbalanced-open
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-structural "(+ 1 2")
|
|
(is (null ok))
|
|
(is (search "Unbalanced" reason))))
|
|
|
|
(test structural-unbalanced-close
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-structural "+ 1 2)")
|
|
(is (null ok))
|
|
(is (search "Unbalanced" reason))))
|
|
|
|
(test syntactic-valid
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-syntactic "(+ 1 2)")
|
|
(is (eq ok t))))
|
|
|
|
(test syntactic-invalid-reader
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-syntactic "(1+ 2 #\")")
|
|
(is (not ok))))
|
|
|
|
(test semantic-safe
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-semantic "(+ 1 2)")
|
|
(is (eq ok t))))
|
|
|
|
(test semantic-blocked-eval
|
|
(multiple-value-bind (ok reason line col)
|
|
(opencortex::lisp-validator-check-semantic "(eval '(+ 1 2))")
|
|
(is (not ok))))
|
|
|
|
(test unified-success
|
|
(let ((result (opencortex::lisp-validator-validate "(+ 1 2)" :strict t)))
|
|
(is (eq (getf result :status) :success))))
|
|
|
|
(test unified-failure
|
|
(let ((result (opencortex::lisp-validator-validate "(+ 1 2" :strict nil)))
|
|
(is (eq (getf result :status) :error))))
|