tests.at: Add a test confirming that expressions are printed escapily.

[runlisp] / tests.at

diff --git a/tests.at b/tests.at
index 7b06d6a15777d5940b2ba784efcf789b9fb4d164..867ae5e15eb62452a93e1dad79fa54872d57d127 100644 (file)
--- a/tests.at
+++ b/tests.at
@@ -229,14 +229,17 @@ cat >script.lisp <<EOF
              #'string<))
 EOF
 AT_CHECK([RUNLISP_PATH \
              #'string<))
 EOF
 AT_CHECK([RUNLISP_PATH \

-           -e '(defpackage [#:]runlisp-test (:export [#:]foo))
-               (defvar runlisp-test:foo 1)' \
+           -e '(defpackage [#:]runlisp-test (:export [#:]foo [#:]bar))
+               (defvar runlisp-test:foo 1)
+               (defvar runlisp-test:bar "stoat!")' \

            -p runlisp-test:foo \
            -p runlisp-test:foo \

+           -p runlisp-test:bar \

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

+"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': ()