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

Diff of /gcl/ansi-tests/find-all-symbols.lsp

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

revision 1.3 by pfdietz, Mon Feb 23 23:31:11 2004 UTC revision 1.4 by pfdietz, Sun Aug 29 02:43:39 2004 UTC
# Line 35  Line 35 
35                                                (string c)))))                                                (string c)))))
36          collect c)          collect c)
37    nil)    nil)
38      
39    ;;; Unusual strings
40    
41    (deftest find-all-symbols.3
42      (let* ((name (make-array '(3) :initial-contents "NIL"
43                               :element-type 'base-char))
44             (symbols (find-all-symbols name)))
45        (values
46         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
47         (some #'not symbols)))
48      t t)
49    
50    (deftest find-all-symbols.4
51      (let* ((name (make-array '(5) :initial-contents "NILXY"
52                               :fill-pointer 3
53                               :element-type 'character))
54             (symbols (find-all-symbols name)))
55        (values
56         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
57         (some #'not symbols)))
58      t t)
59    
60    (deftest find-all-symbols.5
61      (let* ((name (make-array '(5) :initial-contents "NILXY"
62                               :fill-pointer 3
63                               :element-type 'base-char))
64             (symbols (find-all-symbols name)))
65        (values
66         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
67         (some #'not symbols)))
68      t t)
69    
70    (deftest find-all-symbols.6
71      (let* ((name (make-array '(3) :initial-contents "NIL"
72                               :adjustable t
73                               :element-type 'base-char))
74             (symbols (find-all-symbols name)))
75        (values
76         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
77         (some #'not symbols)))
78      t t)
79    
80    (deftest find-all-symbols.7
81      (let* ((name (make-array '(3) :initial-contents "NIL"
82                               :adjustable t
83                               :element-type 'character))
84             (symbols (find-all-symbols name)))
85        (values
86         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
87         (some #'not symbols)))
88      t t)
89    
90    (deftest find-all-symbols.8
91      (let* ((type 'character)
92             (name0 (make-array '(9) :initial-contents "XYZNILABC"
93                                :element-type type))
94             (name (make-array '(3) :element-type type
95                               :displaced-to name0
96                               :displaced-index-offset 3))
97             (symbols (find-all-symbols name)))
98        (values
99         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
100         (some #'not symbols)))
101      t t)
102    
103    (deftest find-all-symbols.9
104      (let* ((type 'base-char)
105             (name0 (make-array '(9) :initial-contents "XYZNILABC"
106                                :element-type type))
107             (name (make-array '(3) :element-type type
108                               :displaced-to name0
109                               :displaced-index-offset 3))
110             (symbols (find-all-symbols name)))
111        (values
112         (notnot (every #'(lambda (s) (string= (symbol-name s) "NIL")) symbols))
113         (some #'not symbols)))
114      t t)  
115    
116  ;;; Error tests  ;;; Error tests
117    

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