Commit 9f06631f authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'feature-more-gensym-tests' into 'master'

Verify that gensym errors with negative *gensym-counter*

See merge request !19
parents 4392c977 8ef3a330
......@@ -114,3 +114,27 @@
(signals-error (gensym "FOO" nil) program-error)
t)
;;;
(deftest gensym.error.10
(signals-error
(let ((*gensym-counter* -1))
(gensym))
type-error)
t)
(deftest gensym.error.11
(signals-error
(let ((*gensym-counter* (1- most-negative-fixnum)))
(gensym))
type-error)
t)
(deftest gensym.error.12
(signals-error
(let ((*gensym-counter* 'defun))
(gensym))
type-error)
t)
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