refactor: Migrate skill tests to Org files - delete redundant .lisp

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%)

skills/org-skill-lisp-utils.org

@@ -500,16 +500,71 @@ Validates all Lisp code before execution.
     (is (eq (getf result :status) :error))
     (is (eq (getf result :failed) :structural))))
 
-(test unified-semantic-fail
-  (let ((result (opencortex::lisp-utils-validate "(delete-file \"x.txt\")" :strict t)))
-    (is (eq (getf result :status) :error))
-    (is (eq (getf result :failed) :semantic))))
-
 (test unified-semantic-fail
   (let ((result (opencortex::lisp-utils-validate "(delete-file \"x.txt\")" :strict t)))
     (is (eq (getf result :status) :error))
     (is (eq (getf result :failed) :semantic))))
 #+end_src
 
-* See Also
+* Test Suite: Lisp Validator (Structural/Syntactic/Semantic)
+
+These tests verify the Lisp Validator gate. Run with:
+~(fiveam:run! 'lisp-validator-suite)~
+
+#+begin_src lisp :tangle ../tests/lisp-validator-tests.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))))
+#+end_src
 - [[file:org-skill-self-fix.org][Self-Fix Skill]] - File modification with memory rollback

skills/org-skill-tool-permissions.org

@@ -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