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

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

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

revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 80  Line 80 
80      (sort a #'char<))      (sort a #'char<))
81    "00111")    "00111")
82    
83    ;;; Error cases
84    
85    (deftest sort.error.1
86      (classify-error (sort))
87      program-error)
88    
89    (deftest sort.error.2
90      (classify-error (sort nil))
91      program-error)
92    
93    (deftest sort.error.3
94      (classify-error (sort nil #'< :key))
95      program-error)
96    
97    (deftest sort.error.4
98      (classify-error (sort nil #'< 'bad t))
99      program-error)
100    
101    (deftest sort.error.5
102      (classify-error (sort nil #'< 'bad t :allow-other-keys nil))
103      program-error)
104    
105    (deftest sort.error.6
106      (classify-error (sort nil #'< 1 2))
107      program-error)

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