/[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.1 by pfdietz, Sun Feb 22 13:33:58 2004 UTC revision 1.2 by pfdietz, Sun Aug 29 02:43:39 2004 UTC
# Line 82  Line 82 
82           (eqt cl cl2)))           (eqt cl cl2)))
83    t)    t)
84    
85    (deftest find-package.12
86      (let* ((name (make-array '(7) :initial-contents "KEYWORD"
87                               :element-type 'base-char))
88             (p (find-package name)))
89        (and p (eqt p (symbol-package :test))))
90      t)
91    
92    (deftest find-package.13
93      (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
94                               :fill-pointer 7
95                               :element-type 'base-char))
96             (p (find-package name)))
97        (and p (eqt p (symbol-package :test))))
98      t)
99    
100    (deftest find-package.14
101      (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
102                               :fill-pointer 7
103                               :element-type 'character))
104             (p (find-package name)))
105        (and p (eqt p (symbol-package :test))))
106      t)
107    
108    (deftest find-package.15
109      (let* ((name0 (make-array '(10) :initial-contents "XYKEYWORDZ"
110                                :element-type 'character))
111             (name (make-array '(7) :displaced-to name0 :displaced-index-offset 2
112                               :element-type 'character))
113             (p (find-package name)))
114        (and p (eqt p (symbol-package :test))))
115      t)
116    
117    (deftest find-package.16
118      (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"
119                               :adjustable t
120                               :element-type 'base-char))
121             (p (find-package name)))
122        (and p (eqt p (symbol-package :test))))
123      t)
124    
125    (deftest find-package.17
126      (let* ((name (make-array '(7) :initial-contents "KEYWORDXYZ"
127                               :adjustable t
128                               :element-type 'character))
129             (p (find-package name)))
130        (and p (eqt p (symbol-package :test))))
131      t)
132    
133    ;;; Error tests
134    
135  (deftest find-package.error.1  (deftest find-package.error.1
136    (signals-error (find-package) program-error)    (signals-error (find-package) program-error)
137    t)    t)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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