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

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

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

revision 1.18 by pfdietz, Thu May 5 03:08:57 2005 UTC revision 1.19 by pfdietz, Fri May 6 01:13:40 2005 UTC
# Line 653  Line 653 
653  ;;; Error tests  ;;; Error tests
654    
655  (deftest count.error.1  (deftest count.error.1
656    (signals-type-error x 1 (count 'a x))    (check-type-error #'(lambda (x) (count 'a x)) #'sequencep)
657    t)    nil)
   
 (deftest count.error.2  
   (signals-type-error x 'a (count 'a x))  
   t)  
   
 (deftest count.error.3  
   (signals-type-error x #\a (count 'a x))  
   t)  
658    
659  (deftest count.error.4  (deftest count.error.4
660    (signals-error (count) program-error)    (signals-error (count) program-error)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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