/[gcl]/gcl/ansi-tests/package-used-by-list.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/package-used-by-list.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 22:03:24 2004 UTC
# Line 7  Line 7 
7    
8  ;;; Most tests of this function are in files for other package-related operators  ;;; Most tests of this function are in files for other package-related operators
9    
10    ;;; Specialized sequence tests
11    
12    (defmacro def-package-used-by-list-test (test-name name-form)
13      `(deftest ,test-name
14         (let ((name ,name-form))
15           (safely-delete-package name)
16           (let ((p (make-package name :use nil)))
17              (package-used-by-list p)))
18         nil))
19    
20    (def-package-used-by-list-test package-used-by-list.1
21      (make-array 5 :element-type 'base-char :initial-contents "TEST1"))
22    
23    (def-package-used-by-list-test package-used-by-list.2
24      (make-array 10 :element-type 'base-char
25                  :fill-pointer 5
26                  :initial-contents "TEST1?????"))
27    
28    (def-package-used-by-list-test package-used-by-list.3
29      (make-array 10 :element-type 'character
30                  :fill-pointer 5
31                  :initial-contents "TEST1?????"))
32    
33    (def-package-used-by-list-test package-used-by-list.4
34      (make-array 5 :element-type 'base-char :adjustable t
35                  :initial-contents "TEST1"))
36    
37    (def-package-used-by-list-test package-used-by-list.5
38      (make-array 5 :element-type 'character :adjustable t
39                  :initial-contents "TEST1"))
40    
41    (def-package-used-by-list-test package-used-by-list.6
42      (let* ((etype 'base-char)
43             (name0 (make-array 10 :element-type etype
44                                :initial-contents "XXTEST1XXX")))
45        (make-array 5 :element-type etype :displaced-to name0
46                    :displaced-index-offset 2)))
47    
48    (def-package-used-by-list-test package-used-by-list.7
49      (let* ((etype 'character)
50             (name0 (make-array 10 :element-type etype
51                                :initial-contents "XXTEST1XXX")))
52        (make-array 5 :element-type etype :displaced-to name0
53                    :displaced-index-offset 2)))
54    
55    ;;; Error tests
56    
57  (deftest package-used-by-list.error.1  (deftest package-used-by-list.error.1
58    (signals-error (package-used-by-list) program-error)    (signals-error (package-used-by-list) program-error)
59    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