1.1--- a/lisp/lib/cli/tests.lisp	Sun Dec 31 02:35:25 2023 -0500
     1.2+++ b/lisp/lib/cli/tests.lisp	Mon Jan 01 16:53:11 2024 -0500
     1.3@@ -5,17 +5,15 @@
     1.4 (defsuite :cli)
     1.5 (in-suite :cli)
     1.6 
     1.7-
     1.8-;; TODO: needs to be compiled outside scope of test - contender for
     1.9-;; fixture API
    1.10-(defprompt tpfoo "testing: ")
    1.11-(defvar tcoll nil)
    1.12-(defvar thist nil)
    1.13-
    1.14 (deftest ansi () )
    1.15 
    1.16 (deftest cli-prompt (:disabled t) ;; FIXME: hijacks io in slime
    1.17   "Test CLI prompts"
    1.18+  ;; TODO: needs to be compiled outside scope of test - contender for
    1.19+  ;; fixture API
    1.20+  (defprompt tpfoo "testing: ")
    1.21+  (defvar tcoll nil)
    1.22+  (defvar thist nil)
    1.23   (let ((*standard-input* (make-string-input-stream 
    1.24 			   (format nil "~A~%~A~%~%" "foobar" "foobar"))))
    1.25     ;; prompts 
    1.26@@ -465,3 +463,8 @@
    1.27 ")))))
    1.28 
    1.29 (deftest repl ())
    1.30+
    1.31+(deftest env ()
    1.32+  (is (ld-library-path-list))
    1.33+  (is (exec-path-list))
    1.34+  (is (find-exe "sbcl")))