/[gcl]/gcl/ansi-tests/fill-pointer.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fill-pointer.lsp

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

revision 1.1 by pfdietz, Wed Jan 22 04:26:22 2003 UTC revision 1.2 by pfdietz, Wed Jan 22 12:59:55 2003 UTC
# Line 24  Line 24 
24       a))       a))
25    5 6 #(1 2 3 4 5 6))    5 6 #(1 2 3 4 5 6))
26    
27    ;;; Error tests
28    
29    (deftest fill-pointer.error.1
30      (classify-error (fill-pointer))
31      program-error)
32    
33    (deftest fill-pointer.error.2
34      (classify-error (fill-pointer (make-array '(10) :fill-pointer 4)
35                                    nil))
36      program-error)
37    
38    (deftest fill-pointer.error.3
39      (classify-error (fill-pointer (make-array '(10) :fill-pointer nil)))
40      type-error)
41    
42    (deftest fill-pointer.error.4
43      (classify-error (fill-pointer #0aNIL))
44      type-error)
45    
46    (deftest fill-pointer.error.5
47      (classify-error (fill-pointer #2a((a b c)(d e f))))
48      type-error)
49    
50    (deftest fill-pointer.error.6
51      (let (why)
52        (loop for e in *mini-universe*
53              when (and (or (not (typep e 'vector))
54                            (not (array-has-fill-pointer-p e)))
55                        (not (eql (setq why (classify-error** `(fill-pointer ',e)))
56                                  'type-error)))
57              collect (list e why)))
58      nil)

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