From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Sat, 18 May 2013 00:30:10 +0000 (+0200)
Subject: Add package tests.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=43fdd8d126248aa25a56771febf11b4f5efe397c;hp=76c143954f14604733819396433bd4280a723428;p=jscl.git

Add package tests.
---

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))))