From 43fdd8d126248aa25a56771febf11b4f5efe397c Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 18 May 2013 02:30:10 +0200 Subject: [PATCH 1/1] Add package tests. --- tests/package.lisp | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 tests/package.lisp diff --git a/tests/package.lisp b/tests/package.lisp new file mode 100644 index 0000000..814057b --- /dev/null +++ b/tests/package.lisp @@ -0,0 +1,25 @@ +(test (not (eq (list-all-packages) (list-all-packages)))) + +(test (equal (multiple-value-list (do-symbols (symbol *package* (values 1 2)))) '(1 2))) + +(test + (let ((package (make-package 'foo :use '(cl))) + foo-symbols + cl-symbols) + (do-symbols (symbol package) + (push symbol foo-symbols)) + (do-external-symbols (symbol 'cl) + (push symbol cl-symbols)) + (and (not (null foo-symbols)) + (equal foo-symbols cl-symbols)))) + +(test + (let* ((package (make-package 'bar)) + (baz (intern (string 'baz) package))) + (let (symbols) + (do-all-symbols (symbol) + (push symbol symbols)) + (and (member 'car symbols) + (member baz symbols))))) + +(test (member 'car (find-all-symbols (string 'car)))) -- 1.7.10.4