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

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

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

revision 1.9 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.10 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest fill-error.1  (deftest fill.error.1
9    (classify-error (fill 'a 'b))    (classify-error (fill 'a 'b))
10    type-error)    type-error)
11    
12    (deftest fill.error.2
13      (classify-error (fill))
14      program-error)
15    
16    (deftest fill.error.3
17      (classify-error (fill (list 'a 'b)))
18      program-error)
19    
20    (deftest fill.error.4
21      (classify-error (fill (list 'a 'b) 'c :bad t))
22      program-error)
23    
24    (deftest fill.error.5
25      (classify-error (fill (list 'a 'b) 'c :bad t :allow-other-keys nil))
26      program-error)
27    
28    (deftest fill.error.6
29      (classify-error (fill (list 'a 'b) 'c :start))
30      program-error)
31    
32    (deftest fill.error.7
33      (classify-error (fill (list 'a 'b) 'c :end))
34      program-error)
35    
36    (deftest fill.error.8
37      (classify-error (fill (list 'a 'b) 'c 1 2))
38      program-error)
39    
40  ;;; Fill on arrays  ;;; Fill on arrays
41    
42  (deftest array-fill-1  (deftest array-fill-1

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

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