From 8b79df0a21daf5be382dcf67364a3c6eefce2dcd Mon Sep 17 00:00:00 2001
Message-Id: <8b79df0a21daf5be382dcf67364a3c6eefce2dcd.1714939403.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 15 May 2021 14:17:26 +0100
Subject: [PATCH] tests.at: Add a test confirming that expressions are printed
 escapily.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 tests.at | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests.at b/tests.at
index 7b06d6a..867ae5e 100644
--- a/tests.at
+++ b/tests.at
@@ -229,14 +229,17 @@ cat >script.lisp <<EOF
 	      #'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:bar \
 	    -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': ()
-- 
[mdw]