tests/package.lisp

   1 (test (not (eq (list-all-packages) (list-all-packages))))
   2
   3 (test (equal (multiple-value-list (do-symbols (symbol *package* (values 1 2)))) '(1 2)))
   4
   5 (test
   6  (let ((package (make-package 'foo :use '(cl)))
   7        foo-symbols
   8        cl-symbols)
   9    (do-symbols (symbol package)
  10      (push symbol foo-symbols))
  11    (do-external-symbols (symbol 'cl)
  12      (push symbol cl-symbols))
  13    (and (not (null foo-symbols))
  14         (equal foo-symbols cl-symbols))))
  15
  16 (test
  17  (let* ((package (make-package 'bar))
  18         (baz (intern (string 'baz) package)))
  19    (let (symbols)
  20      (do-all-symbols (symbol)
  21        (push symbol symbols))
  22      (and (member 'car symbols)
  23           (member baz symbols)))))
  24
  25 (test (member 'car (find-all-symbols (string 'car))))
  26
  27 ;; This test is failing. I have disabled temporarily.
  28 ;; (test (eq (eval '(in-package #:cl-user)) (find-package '#:cl-user)))
  29
  30