Commit 2fe0a9e3 authored by pfdietz's avatar pfdietz

More tests

parent 8fa46178
......@@ -24,6 +24,8 @@
(push sym failures))))))))
nil)
;;; FIXME -- test that each symbol found is accessible in some package
(deftest find-all-symbols.2
(loop for i from 0 to 255
for c = (code-char i)
......
......@@ -5,5 +5,7 @@
(in-package :cl-test)
(compile-and-load "printer-aux.lsp")
(load "copy-pprint-dispatch.lsp")
......@@ -95,6 +95,28 @@
(with-standard-io-syntax (notnot-mv (readtablep *readtable*)))
t)
(deftest with-standard-io-syntax.19
(with-standard-io-syntax)
nil)
(deftest with-standard-io-syntax.20
(with-standard-io-syntax (values 'a 'b 'c))
a b c)
(deftest with-standard-io-syntax.21
(block done
(tagbody
(with-standard-io-syntax (go 10) 10 (return-from done :bad))
10
(return-from done :good)))
:good)
(deftest with-standard-io-syntax.22
(let ((i 3))
(with-standard-io-syntax
(incf i 10)
(+ i 2)))
15)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment