tier3: contracts + tests for 12 remaining modules (all 39 files now have Contracts)

lisp/programming-lisp.lisp

@@ -161,43 +161,53 @@
 (in-suite utils-lisp-suite)
 
 (test structural-balanced
+  "Contract 1: balanced code returns T."
   (is (eq t (passepartout:lisp-structural-check "(+ 1 2)"))))
 
 (test structural-unbalanced-open
+  "Contract 1: missing close paren returns nil + error."
   (multiple-value-bind (ok reason) (passepartout:lisp-structural-check "(+ 1 2")
     (is (null ok))
     (is (search "Reader Error" reason))))
 
 (test structural-unbalanced-close
+  "Contract 1: extra close paren returns nil + error."
   (multiple-value-bind (ok reason) (passepartout:lisp-structural-check "+ 1 2)")
     (is (null ok))
     (is (search "Reader Error" reason))))
 
 (test syntactic-valid
+  "Contract 2: valid syntax passes syntactic check."
   (is (eq t (passepartout:lisp-syntactic-check "(+ 1 2)"))))
 
 (test semantic-safe
+  "Contract 3: safe code passes semantic check."
   (is (eq t (passepartout:lisp-semantic-check "(+ 1 2)"))))
 
 (test semantic-blocked-eval
+  "Contract 3: eval forms are blocked by semantic check."
   (multiple-value-bind (ok reason) (passepartout:lisp-semantic-check "(eval '(+ 1 2))")
     (is (null ok))
     (is (search "Unsafe" reason))))
 
 (test unified-success
+  "Contract 4: valid code returns :success via lisp-validate."
   (let ((result (passepartout:lisp-validate "(+ 1 2)" :strict t)))
     (is (eq (getf result :status) :success))))
 
 (test unified-failure
+  "Contract 4: invalid code returns :error via lisp-validate."
   (let ((result (passepartout:lisp-validate "(+ 1 2" :strict nil)))
     (is (eq (getf result :status) :error))))
 
 (test eval-basic
+  "Contract 5: lisp-eval returns :success with captured result."
   (let ((result (passepartout:lisp-eval "(+ 1 2)")))
     (is (eq (getf result :status) :success))
     (is (string= (getf result :result) "3"))))
 
 (test structural-extract
+  "Contract 6: lisp-extract finds and returns a named function."
   (let* ((code "(defun hello () (print \"hi\")) (defun bye () (print \"bye\"))")
          (extracted (passepartout:lisp-extract code "hello")))
     (is (not (null extracted)))
@@ -206,6 +216,7 @@
       (is (eq (second form) 'HELLO)))))
 
 (test list-definitions
+  "Contract 7: lisp-list-definitions returns all defined names."
   (let ((code "(defun foo () t) (defmacro bar () nil) (defparameter *baz* 10)"))
     (let ((names (passepartout:lisp-list-definitions code)))
       (is (member 'FOO names))
@@ -213,12 +224,14 @@
       (is (member '*BAZ* names)))))
 
 (test structural-inject
+  "Contract 8: lisp-inject adds a form to a function body."
   (let* ((code "(defun my-fun (x) (print x))")
          (injected (passepartout:lisp-inject code "my-fun" "(finish-output)")))
     (let ((form (read-from-string injected)))
       (is (equal (last form) '((FINISH-OUTPUT)))))))
 
 (test structural-slurp
+  "Contract 9: lisp-slurp appends a form to a function body."
   (let* ((code "(defun work () (step-1))")
          (slurped (passepartout:lisp-slurp code "work" "(step-2)")))
     (let ((form (read-from-string slurped)))