Skip to content
Snippets Groups Projects
Commit 8c81e771 authored by pfdietz's avatar pfdietz
Browse files

Make the output of make-package tests be more informative

parent 8c60effd
Branches
Tags
No related merge requests found
...@@ -134,131 +134,131 @@ ...@@ -134,131 +134,131 @@
(progn (progn
(safely-delete-package '#:|TEST1|) (safely-delete-package '#:|TEST1|)
(let ((p (ignore-errors (make-package '#:|TEST1| :use '("A"))))) (let ((p (ignore-errors (make-package '#:|TEST1| :use '("A")))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
(deftest make-package.8a (deftest make-package.8a
(progn (progn
(safely-delete-package '#:|TEST1|) (safely-delete-package '#:|TEST1|)
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|))))) (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|)))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
(deftest make-package.8b (deftest make-package.8b
(progn (progn
(safely-delete-package '#:|TEST1|) (safely-delete-package '#:|TEST1|)
(let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A))))) (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A)))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (packagep p)
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
(deftest make-package.9 (deftest make-package.9
(progn (progn
(safely-delete-package #\X) (safely-delete-package #\X)
(let ((p (ignore-errors (make-package #\X :use '("A"))))) (let ((p (ignore-errors (make-package #\X :use '("A")))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "X") (equalt (package-name p) "X")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
(deftest make-package.9a (deftest make-package.9a
(progn (progn
(safely-delete-package #\X) (safely-delete-package #\X)
(let ((p (ignore-errors (make-package #\X :use '(#:|A|))))) (let ((p (ignore-errors (make-package #\X :use '(#:|A|)))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "X") (equalt (package-name p) "X")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
(deftest make-package.9b (deftest make-package.9b
(progn (progn
(safely-delete-package #\X) (safely-delete-package #\X)
(let ((p (ignore-errors (make-package #\X :use '(#\A))))) (let ((p (ignore-errors (make-package #\X :use '(#\A)))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "X") (equalt (package-name p) "X")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package "A"))) (equalt (package-use-list p) (list (find-package "A")))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t t)
;; make-package with nicknames ;; make-package with nicknames
(deftest make-package.10 (deftest make-package.10
(progn (progn
(safely-delete-package "TEST1") (mapc #'safely-delete-package '("TEST1" "F"))
(let ((p (make-package "TEST1" :nicknames '("F")))) (let ((p (make-package "TEST1" :nicknames '("F"))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) '("F")) (equalt (package-nicknames p) '("F"))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t)
(deftest make-package.11 (deftest make-package.11
(progn (progn
(safely-delete-package '#:|TEST1|) (mapc #'safely-delete-package '("TEST1" "G"))
(let ((p (make-package '#:|TEST1| :nicknames '(#:|G|)))) (let ((p (make-package '#:|TEST1| :nicknames '(#:|G|))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) '("G")) (equalt (package-nicknames p) '("G"))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t)
(deftest make-package.12 (deftest make-package.12
(progn (progn
(safely-delete-package '#:|TEST1|) (mapc #'safely-delete-package '("TEST1" "G"))
(let ((p (make-package '#:|TEST1| :nicknames '(#\G)))) (let ((p (make-package '#:|TEST1| :nicknames '(#\G))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) '("G")) (equalt (package-nicknames p) '("G"))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t t t)
(deftest make-package.13 (deftest make-package.13
(progn (progn
(safely-delete-package #\X) (mapc #'safely-delete-package '(#\X #\F #\G #\H))
(let ((p (make-package #\X :nicknames '("F" #\G #:|H|)))) (let ((p (make-package #\X :nicknames '("F" #\G #:|H|))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "X") (equalt (package-name p) "X")
(null (set-exclusive-or (package-nicknames p) (set-exclusive-or (package-nicknames p)
'("F" "G" "H") '("F" "G" "H")
:test #'equal)) :test #'equal)
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t) t t nil t)
;;; Specialized sequences as designators ;;; Specialized sequences as designators
...@@ -270,13 +270,13 @@ ...@@ -270,13 +270,13 @@
(assert (string= name "TEST1")) (assert (string= name "TEST1"))
(safely-delete-package "TEST1") (safely-delete-package "TEST1")
(let ((p (ignore-errors (make-package name)))) (let ((p (ignore-errors (make-package name))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t)) t t t t))
(def-make-package-test1 make-package.14 (def-make-package-test1 make-package.14
(make-array 5 :initial-contents "TEST1" (make-array 5 :initial-contents "TEST1"
...@@ -327,13 +327,13 @@ ...@@ -327,13 +327,13 @@
(safely-delete-package "TEST1") (safely-delete-package "TEST1")
(safely-delete-package nickname) (safely-delete-package nickname)
(let ((p (make-package name :nicknames (list nickname)))) (let ((p (make-package name :nicknames (list nickname))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) (list nickname)) (equalt (package-nicknames p) (list nickname))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t)) t t t t))
(def-make-package-test2 make-package.21 (def-make-package-test2 make-package.21
(make-array 5 :initial-contents "TEST1" (make-array 5 :initial-contents "TEST1"
...@@ -383,14 +383,14 @@ ...@@ -383,14 +383,14 @@
(safely-delete-package "TEST1") (safely-delete-package "TEST1")
(assert (find-package name)) (assert (find-package name))
(let ((p (ignore-errors (make-package "TEST1" :use (list name))))) (let ((p (ignore-errors (make-package "TEST1" :use (list name)))))
(prog1 (multiple-value-prog1
(and (packagep p) (values (notnot (packagep p))
(equalt (package-name p) "TEST1") (equalt (package-name p) "TEST1")
(equalt (package-nicknames p) nil) (equalt (package-nicknames p) nil)
(equalt (package-use-list p) (list (find-package name))) (equalt (package-use-list p) (list (find-package name)))
(equalt (package-used-by-list p) nil)) (equalt (package-used-by-list p) nil))
(safely-delete-package p)))) (safely-delete-package p))))
t)) t t t t t))
(def-make-package-test3 make-package.28 (def-make-package-test3 make-package.28
(make-array 1 :initial-contents "A" :element-type 'base-char)) (make-array 1 :initial-contents "A" :element-type 'base-char))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment