Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
9ad3891d
Commit
9ad3891d
authored
Apr 04, 2015
by
Robert Strandh
Committed by
Daniel Kochmański
Aug 31, 2015
Browse files
Added test for multiple occurrences of option :NICKNAMES.
parent
b653b80f
Changes
1
Hide whitespace changes
Inline
Side-by-side
defpackage.lsp
View file @
9ad3891d
...
...
@@ -59,6 +59,31 @@
))))))
0)
;;; Test :nicknames option with more than one occurrence.
;;; Do not check use-list, because it is implementation dependent
;;; Try several ways of specifying a nickname.
(deftest defpackage.2b
(loop
for n in '("I" #:|I| #\I) count
(not
(ignore-errors
(progn
(safely-delete-package "H")
(let ((p (ignore-errors
(eval `(defpackage "H"
(:nicknames ,n)
(:nicknames "J"))))))
(and
(packagep p)
(equal (package-name p) "H")
(equal (package-used-by-list p) nil)
(equal (sort (copy-list (package-nicknames p))
#'string<)
'("I" "J"))
(equal (package-shadowing-symbols p) nil)
(null (documentation p t))))))))
0)
;; Test defpackage with documentation option
;; Do not check use-list, because it is implementation dependent
(deftest defpackage.3
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment