/[gcl]/gcl/ansi-tests/aref.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/aref.lsp

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

revision 1.3 by pfdietz, Fri Jan 16 14:44:05 2004 UTC revision 1.4 by pfdietz, Fri May 27 14:14:01 2005 UTC
# Line 135  Line 135 
135    
136  ;;; To add: aref on displaced arrays, arrays with fill pointers, etc.  ;;; To add: aref on displaced arrays, arrays with fill pointers, etc.
137    
138    (deftest aref.special-integer.1
139      (do-special-integer-vectors
140       (v #(1 1 0 1 0 1) nil)
141       (assert (= (aref v 0) 1))
142       (assert (= (aref v 1) 1))
143       (assert (= (aref v 2) 0))
144       (assert (= (aref v 3) 1))
145       (assert (= (aref v 4) 0))
146       (assert (= (aref v 5) 1)))
147      nil)
148    
149    (deftest aref.special-strings.1
150      (do-special-strings
151       (s "ABCDE" nil)
152       (assert (eql (aref s 0) #\A))
153       (assert (eql (aref s 1) #\B))
154       (assert (eql (aref s 2) #\C))
155       (assert (eql (aref s 3) #\D))
156       (assert (eql (aref s 4) #\E)))
157      nil)
158    
159    ;;; Error tests
160    
161  (deftest aref.error.1  (deftest aref.error.1
162    (signals-error (aref) program-error)    (signals-error (aref) program-error)
163    t)    t)

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