/[gcl]/gcl/ansi-tests/cons-test-12.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-12.lsp

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 10  Line 10 
10  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11  ;;; nthcdr  ;;; nthcdr
12    
13  (deftest nthcdr-1  (deftest nthcdr.error.1
14      (catch-type-error (nthcdr nil (copy-tree '(a b c d))))    (catch-type-error (nthcdr nil (copy-tree '(a b c d))))
15    type-error)    type-error)
16    
17  (deftest nthcdr-2  (deftest nthcdr.error.2
18      (catch-type-error (nthcdr 'a (copy-tree '(a b c d))))    (catch-type-error (nthcdr 'a (copy-tree '(a b c d))))
19    type-error)    type-error)
20    
21  (deftest nthcdr-3  (deftest nthcdr.error.3
22      (catch-type-error (nthcdr 0.1 (copy-tree '(a b c d))))    (catch-type-error (nthcdr 0.1 (copy-tree '(a b c d))))
23    type-error)    type-error)
24    
25  (deftest nthcdr-4  (deftest nthcdr.error.4
26      (catch-type-error (nthcdr #\A (copy-tree '(a b c d))))    (catch-type-error (nthcdr #\A (copy-tree '(a b c d))))
27    type-error)    type-error)
28    
29  (deftest nthcdr-5  (deftest nthcdr.error.5
30      (catch-type-error (nthcdr '(a) (copy-tree '(a b c d))))    (catch-type-error (nthcdr '(a) (copy-tree '(a b c d))))
31    type-error)    type-error)
32    
33  (deftest nthcdr-6  (deftest nthcdr.error.6
34      (catch-type-error (nthcdr -10 (copy-tree '(a b c d))))    (catch-type-error (nthcdr -10 (copy-tree '(a b c d))))
35      type-error)
36    
37    (deftest nthcdr.error.7
38      (classify-error (nthcdr))
39      program-error)
40    
41    (deftest nthcdr.error.8
42      (classify-error (nthcdr 0))
43      program-error)
44    
45    (deftest nthcdr.error.9
46      (classify-error (nthcdr 0 nil nil))
47      program-error)
48    
49    (deftest nthcdr.error.10
50      (catch-type-error (nthcdr 3 (cons 'a 'b)))
51    type-error)    type-error)
52    
53  (deftest nthcdr-7  (deftest nthcdr-7
# Line 54  Line 70 
70      (nthcdr 1 (cons 'a 'b))      (nthcdr 1 (cons 'a 'b))
71    b)    b)
72    
 (deftest nthcdr-12  
     (catch-type-error (nthcdr 3 (cons 'a 'b)))  
   type-error)  
   
73    
74  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
75  ;;; rest  ;;; rest
# Line 65  Line 77 
77  (deftest rest-1  (deftest rest-1
78      (rest (list 'a 'b 'c))      (rest (list 'a 'b 'c))
79    (b c))    (b c))
80    
81    (deftest rest.error.1
82      (classify-error (rest))
83      program-error)
84    
85    (deftest rest.error.2
86      (classify-error (rest nil nil))
87      program-error)

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