amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

ARCH: Finalize Microkernel Decoupling - Move behavioral skills to dynamic user-space

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-13 16:11:09 -04:00
parent 34f59a6e43
commit 19fb888434
74 changed files with 129 additions and 2744 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
tests/lisp-validator-tests.lisp
View File

@@ -1,22 +0,0 @@
(defpackage :org-agent-lisp-validator-tests
(:use :cl :fiveam :org-agent)
(:export #:lisp-validator-suite))
(in-package :org-agent-lisp-validator-tests)
(def-suite lisp-validator-suite :description "Tests for the Lisp Validator.")
(in-suite lisp-validator-suite)
(test test-basic-math-safe
(is (org-agent:lisp-validator-validate "(+ 1 2)")))
(test test-blocked-eval
(is (not (org-agent:lisp-validator-validate "(eval '(+ 1 2))"))))
(test test-blocked-shell
(is (not (org-agent:lisp-validator-validate "(uiop:run-program \"ls\")"))))
(test test-nested-unsafe
(is (not (org-agent:lisp-validator-validate "(let ((x 1)) (delete-file \"test.txt\"))"))))
(test test-safe-kernel-api
(is (org-agent:lisp-validator-validate "(org-agent::lookup-object \"node-1\")")))