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

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

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

revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.3 by pfdietz, Wed Jan 29 02:11:54 2003 UTC
# Line 50  Line 50 
50      (last (cons 'a 'b) 2)      (last (cons 'a 'b) 2)
51    (a . b))    (a . b))
52    
53  (deftest last-11  (deftest last.error.1
54      (catch-type-error (last (list 'a 'b 'c) -1))    (classify-error (last (list 'a 'b 'c) -1))
55    type-error)    type-error)
56    
57  (deftest last-12  (deftest last.error.2
58      (catch-type-error (last (list 'a 'b 'c) 'a))    (classify-error (last (list 'a 'b 'c) 'a))
59    type-error)    type-error)
60    
61  (deftest last-13  (deftest last.error.3
62      (catch-type-error (last (list 'a 'b 'c) 10.0))    (classify-error (last (list 'a 'b 'c) 10.0))
63    type-error)    type-error)
64    
65  (deftest last-14  (deftest last.error.4
66      (catch-type-error (last (list 'a 'b 'c) -10.0))    (classify-error (last (list 'a 'b 'c) -10.0))
67    type-error)    type-error)
68    
69  (deftest last-15  (deftest last.error.5
70      (catch-type-error (last (list 'a 'b 'c) #\w))    (classify-error (last (list 'a 'b 'c) #\w))
71    type-error)    type-error)
72    
73  (deftest last-16  (deftest last.error.6
74    (classify-error (last))    (classify-error (last))
75    program-error)    program-error)
76    
77  (deftest last-17  (deftest last.error.7
78    (classify-error (last '(a b c) 2 nil))    (classify-error (last '(a b c) 2 nil))
79    program-error)    program-error)
80    
81    (deftest last.error.8
82      (classify-error (locally (last (list 'a 'b 'c) 'a) t))
83      type-error)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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