/[gcl]/gcl/ansi-tests/packages-02.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-02.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.4 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 9  Line 9 
9  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
10  ;;; find-package  ;;; find-package
11    
12  (deftest find-package-1  (deftest find-package.1
13      (let ((p (find-package "CL"))    (let ((p (find-package "CL"))
14            (p2 (find-package "COMMON-LISP")))          (p2 (find-package "COMMON-LISP")))
15        (and p p2 (eqt p p2)))      (and p p2 (eqt p p2)))
16    t)    t)
17    
18  (deftest find-package-2  (deftest find-package.2
19      (let ((p (find-package "CL-USER"))    (let ((p (find-package "CL-USER"))
20            (p2 (find-package "COMMON-LISP-USER")))          (p2 (find-package "COMMON-LISP-USER")))
21        (and p p2 (eqt p p2)))      (and p p2 (eqt p p2)))
22    t)    t)
23    
24  (deftest find-package-3  (deftest find-package.3
25      (let ((p (find-package "KEYWORD")))    (let ((p (find-package "KEYWORD")))
26        (and p (eqt p (symbol-package :test))))      (and p (eqt p (symbol-package :test))))
27    t)    t)
28    
29  (deftest find-package-4  (deftest find-package.4
30      (let ((p (ignore-errors (find-package "A"))))    (let ((p (ignore-errors (find-package "A"))))
31        (if (packagep p)      (if (packagep p)
32            t          t
33          p))        p))
34    t)    t)
35    
36  (deftest find-package-5  (deftest find-package.5
37      (let ((p (ignore-errors (find-package #\A))))    (let ((p (ignore-errors (find-package #\A))))
38        (if (packagep p)      (if (packagep p)
39            t          t
40          p))        p))
41    t)    t)
42    
43  (deftest find-package-6  (deftest find-package.6
44      (let ((p (ignore-errors (find-package "B"))))    (let ((p (ignore-errors (find-package "B"))))
45        (if (packagep p)      (if (packagep p)
46            t          t
47          p))        p))
48    t)    t)
49    
50  (deftest find-package-7  (deftest find-package.7
51      (let ((p (ignore-errors (find-package #\B))))    (let ((p (ignore-errors (find-package #\B))))
52        (if (packagep p)      (if (packagep p)
53            t          t
54          p))        p))
55    t)    t)
56    
57  (deftest find-package-8  (deftest find-package.8
58      (let ((p (ignore-errors (find-package "Q")))    (let ((p (ignore-errors (find-package "Q")))
59            (p2 (ignore-errors (find-package "A"))))          (p2 (ignore-errors (find-package "A"))))
60        (and (packagep p)      (and (packagep p)
61             (packagep p2)           (packagep p2)
62             (eqt p p2)))           (eqt p p2)))
63    t)    t)
64    
65  (deftest find-package-9  (deftest find-package.9
66      (let ((p (ignore-errors (find-package "A")))    (let ((p (ignore-errors (find-package "A")))
67            (p2 (ignore-errors (find-package "B"))))          (p2 (ignore-errors (find-package "B"))))
68        (eqt p p2))      (eqt p p2))
69    nil)    nil)
70    
71  (deftest find-package-10  (deftest find-package.10
72      (let ((p (ignore-errors (find-package #\Q)))    (let ((p (ignore-errors (find-package #\Q)))
73            (p2 (ignore-errors (find-package "Q"))))          (p2 (ignore-errors (find-package "Q"))))
74        (and (packagep p)      (and (packagep p)
75             (eqt p p2)))           (eqt p p2)))
76    t)    t)
77    
78  (deftest find-package-11  (deftest find-package.11
79      (handler-case    (let* ((cl (find-package "CL"))
80          (let ((cl (find-package "CL")))           (cl2 (find-package cl)))
81            (let ((cl2 (find-package cl)))      (and (packagep cl)
82              (and (packagep cl)           (eqt cl cl2)))
                  (eqt cl cl2))))  
       (error (c) c))  
83    t)    t)
84    
85  (deftest find-package.error.1  (deftest find-package.error.1

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26