1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/lisp/lib/cli/tests/shell.lisp	Tue Oct 01 22:29:08 2024 -0400
     1.3@@ -0,0 +1,13 @@
     1.4+;;; shell.lisp --- Shell Reader Tests
     1.5+
     1.6+;; 
     1.7+
     1.8+;;; Code:
     1.9+(in-package :cli/tests)
    1.10+(in-suite :cli)
    1.11+
    1.12+(defparameter *shell-test-fn* #$ls #,*default-pathname-defaults* $#)
    1.13+
    1.14+(deftest shell-reader ()
    1.15+  (in-readtable :shell)
    1.16+  (is (functionp *shell-test-fn*)))