/[gcl]/gcl/ansi-tests/make-array.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-array.lsp

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

revision 1.10 by pfdietz, Wed Jan 22 02:44:51 2003 UTC revision 1.11 by pfdietz, Sat Jan 25 13:51:22 2003 UTC
# Line 225  Line 225 
225                                    (make-string len :initial-element #\)))))))                                    (make-string len :initial-element #\)))))))
226    t)    t)
227    
228    (deftest make-array.29
229      (make-array-with-checks '(5) :element-type '(integer 0 (256))
230                              :initial-contents '(0 5 255 119 57))
231      #(0 5 255 119 57))
232    
233    (deftest make-array.30
234      (make-array-with-checks '(5) :element-type '(integer -128 127)
235                              :initial-contents '(-10 5 -128 86 127))
236      #(-10 5 -128 86 127))
237    
238    (deftest make-array.31
239      (make-array-with-checks '(5) :element-type '(integer 0 (65536))
240                              :initial-contents '(0 100 65535 7623 13))
241      #(0 100 65535 7623 13))
242    
243    (deftest make-array.32
244      (make-array-with-checks '(5) :element-type 'fixnum
245                              :initial-contents '(1 2 3 4 5))
246      #(1 2 3 4 5))
247    
248    (deftest make-array.33
249      (make-array-with-checks '(5) :element-type 'short-float
250                              :initial-contents '(1.0s0 2.0s0 3.0s0 4.0s0 5.0s0))
251      #(1.0s0 2.0s0 3.0s0 4.0s0 5.0s0))
252    
253    (deftest make-array.34
254      (make-array-with-checks '(5) :element-type 'single-float
255                              :initial-contents '(1.0f0 2.0f0 3.0f0 4.0f0 5.0f0))
256      #(1.0f0 2.0f0 3.0f0 4.0f0 5.0f0))
257    
258    (deftest make-array.35
259      (make-array-with-checks '(5) :element-type 'double-float
260                              :initial-contents '(1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
261      #(1.0d0 2.0d0 3.0d0 4.0d0 5.0d0))
262    
263    (deftest make-array.36
264      (make-array-with-checks '(5) :element-type 'long-float
265                              :initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0))
266      #(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0))
267    
268    
269  ;;; Adjustable arrays  ;;; Adjustable arrays
270    
271  (deftest make-array.adjustable.1  (deftest make-array.adjustable.1

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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