/[gcl]/gcl/ansi-tests/find-package.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-package.lsp

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

revision 1.5 by pfdietz, Sat Sep 4 01:09:01 2004 UTC revision 1.6 by pfdietz, Sat Apr 23 18:48:50 2005 UTC
# Line 27  Line 27 
27    t)    t)
28    
29  (deftest find-package.4  (deftest find-package.4
30    (let ((p (ignore-errors (find-package "A"))))    (progn
31      (if (packagep p)      (set-up-packages)
32          t      (let ((p (ignore-errors (find-package "A"))))
33        p))        (if (packagep p)
34              t
35            p)))
36    t)    t)
37    
38  (deftest find-package.5  (deftest find-package.5
39    (let ((p (ignore-errors (find-package #\A))))    (progn
40      (if (packagep p)      (set-up-packages)
41          t      (let ((p (ignore-errors (find-package #\A))))
42        p))        (if (packagep p)
43              t
44            p)))
45    t)    t)
46    
47  (deftest find-package.6  (deftest find-package.6
48    (let ((p (ignore-errors (find-package "B"))))    (progn
49      (if (packagep p)      (set-up-packages)
50          t      (let ((p (ignore-errors (find-package "B"))))
51        p))        (if (packagep p)
52              t
53            p)))
54    t)    t)
55    
56  (deftest find-package.7  (deftest find-package.7
57    (let ((p (ignore-errors (find-package #\B))))    (progn
58      (if (packagep p)      (set-up-packages)
59          t      (let ((p (ignore-errors (find-package #\B))))
60        p))        (if (packagep p)
61              t
62            p)))
63    t)    t)
64    
65  (deftest find-package.8  (deftest find-package.8
66    (let ((p (ignore-errors (find-package "Q")))    (progn
67          (p2 (ignore-errors (find-package "A"))))      (set-up-packages)
68      (and (packagep p)      (let ((p (ignore-errors (find-package "Q")))
69           (packagep p2)            (p2 (ignore-errors (find-package "A"))))
70           (eqt p p2)))        (and (packagep p)
71               (packagep p2)
72               (eqt p p2))))
73    t)    t)
74    
75  (deftest find-package.9  (deftest find-package.9
76    (let ((p (ignore-errors (find-package "A")))    (progn
77          (p2 (ignore-errors (find-package "B"))))      (set-up-packages)
78      (eqt p p2))      (let ((p (ignore-errors (find-package "A")))
79              (p2 (ignore-errors (find-package "B"))))
80          (eqt p p2)))
81    nil)    nil)
82    
83  (deftest find-package.10  (deftest find-package.10
84    (let ((p (ignore-errors (find-package #\Q)))    (progn
85          (p2 (ignore-errors (find-package "Q"))))      (set-up-packages)
86      (and (packagep p)      (let ((p (ignore-errors (find-package #\Q)))
87           (eqt p p2)))            (p2 (ignore-errors (find-package "Q"))))
88          (and (packagep p)
89               (eqt p p2))))
90    t)    t)
91    
92  (deftest find-package.11  (deftest find-package.11

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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