~mdw
/
runlisp
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b881c5
)
tests.at: Add a test confirming that expressions are printed escapily.
author
Mark Wooding
<mdw@distorted.org.uk>
Sat, 15 May 2021 13:17:26 +0000
(14:17 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sat, 15 May 2021 13:59:01 +0000
(14:59 +0100)
tests.at
patch
|
blob
|
blame
|
history
diff --git
a/tests.at
b/tests.at
index
7b06d6a
..
867ae5e
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': ()