lib.c: Make `search_recursive' be static, as it should be.

[runlisp] / tests.at

diff --git a/tests.at b/tests.at
index 73b13ae244d73e98beafe1a171d67092d0a1f413..b7991db6ae9a7855ce7c5f00d0944511378ae5cb 100644 (file)
--- a/tests.at
+++ b/tests.at
@@ -234,12 +234,14 @@ AT_CHECK([RUNLISP_PATH \
                (defvar runlisp-test:bar "stoat!")' \
            -d runlisp-test:foo \
            -d runlisp-test:bar \
                (defvar runlisp-test:bar "stoat!")' \
            -d runlisp-test:foo \
            -d runlisp-test:bar \

+           -p runlisp-test:bar \

            -e '(incf runlisp-test:foo)' \
            -l script.lisp \
            -d runlisp-test:foo \
            -- -e one two three],,
 [1
 "stoat!"
            -e '(incf runlisp-test:foo)' \
            -l script.lisp \
            -d runlisp-test:foo \
            -- -e one two three],,
 [1
 "stoat!"

+stoat!

 And we're running the script...
 Command-line arguments: ("-e" "one" "two" "three")
 Symbols in package `COMMON-LISP-USER': ()
 And we're running the script...
 Command-line arguments: ("-e" "one" "two" "three")
 Symbols in package `COMMON-LISP-USER': ()


@@ -337,8 +339,6 @@ EOF
   rm -f $conf
 done
 
   rm -f $conf
 done
 

-
-

 AT_CLEANUP
 
 ###----- That's all, folks --------------------------------------------------
 AT_CLEANUP
 
 ###----- That's all, folks --------------------------------------------------