/[gcl]/gcl/ansi-tests/count-if.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/count-if.lsp

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

revision 1.15 by pfdietz, Thu May 5 03:08:56 2005 UTC revision 1.16 by pfdietz, Fri May 6 01:13:40 2005 UTC
# Line 524  Line 524 
524  ;;; Error tests  ;;; Error tests
525    
526  (deftest count-if.error.1  (deftest count-if.error.1
527    (signals-type-error x 1 (count-if #'identity x))    (check-type-error #'(lambda (x) (count-if #'identity x))
528    t)                      #'sequencep)
529      nil)
 (deftest count-if.error.2  
   (signals-type-error x 'a (count-if #'identity x))  
   t)  
   
 (deftest count-if.error.3  
   (signals-type-error x #\a (count-if #'identity x))  
   t)  
530    
531  (deftest count-if.error.4  (deftest count-if.error.4
532    (signals-error (count-if) program-error)    (signals-error (count-if) program-error)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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