refactor: Migrate skill tests to Org files - delete redundant .lisp
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Added inline tests: - org-skill-lisp-utils.org: lisp-validator tests - org-skill-tool-permissions.org: tool-permissions tests Deleted duplicates: - tests/lisp-validator-tests.lisp - tests/tool-permissions-tests.lisp All tests pass: 84/84 (100%)
This commit is contained in:
@@ -115,4 +115,46 @@ Tool permissions and embedding generation via multiple providers.
|
||||
:deterministic (lambda (a c)
|
||||
(let ((tool (getf (getf a :payload) :tool)))
|
||||
(when tool (check-tool-permission-gate tool c)))))
|
||||
#+end_src
|
||||
|
||||
* Test Suite
|
||||
|
||||
These tests verify tool permissions. Run with:
|
||||
~(fiveam:run! 'tool-permissions-suite)~
|
||||
|
||||
#+begin_src lisp :tangle ../tests/tool-permissions-tests.lisp
|
||||
(defpackage :opencortex-tool-permissions-tests
|
||||
(:use :cl :fiveam :opencortex)
|
||||
(:export #:tool-permissions-suite))
|
||||
|
||||
(in-package :opencortex-tool-permissions-tests)
|
||||
|
||||
(def-suite tool-permissions-suite
|
||||
:description "Tests for Tool Permissions skill")
|
||||
|
||||
(in-suite tool-permissions-suite)
|
||||
|
||||
(test default-permission-is-allow
|
||||
"Verify default permission is :allow."
|
||||
(is (eq (get-tool-permission "unknown-tool") :allow)))
|
||||
|
||||
(test set-and-get-permission
|
||||
"Verify setting and getting permissions."
|
||||
(set-tool-permission "test-tool-abc" :deny)
|
||||
(is (eq (get-tool-permission "test-tool-abc") :deny)))
|
||||
|
||||
(test permission-gate-allow
|
||||
"Verify :allow tier passes through."
|
||||
(set-tool-permission "gate-allow-tool" :allow)
|
||||
(is (eq (check-tool-permission-gate "gate-allow-tool" nil) :allow)))
|
||||
|
||||
(test permission-gate-deny
|
||||
"Verify :deny tier blocks."
|
||||
(set-tool-permission "gate-deny-tool" :deny)
|
||||
(is (eq (check-tool-permission-gate "gate-deny-tool" nil) :deny)))
|
||||
|
||||
(test permission-gate-ask
|
||||
"Verify :ask tier returns ask list."
|
||||
(set-tool-permission "gate-ask-tool" :ask)
|
||||
(is (listp (check-tool-permission-gate "gate-ask-tool" nil))))
|
||||
#+end_src
|
||||
Reference in New Issue
Block a user