/[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.17 by pfdietz, Sat Sep 25 15:08:57 2004 UTC revision 1.18 by pfdietz, Thu May 5 03:08:57 2005 UTC
# Line 653  Line 653 
653  ;;; Error tests  ;;; Error tests
654    
655  (deftest count.error.1  (deftest count.error.1
656    (signals-error (count 'a 1) type-error)    (signals-type-error x 1 (count 'a x))
657    t)    t)
658    
659  (deftest count.error.2  (deftest count.error.2
660    (signals-error (count 'a 'a) type-error)    (signals-type-error x 'a (count 'a x))
661    t)    t)
662    
663  (deftest count.error.3  (deftest count.error.3
664    (signals-error (count 'a #\a) type-error)    (signals-type-error x #\a (count 'a x))
665    t)    t)
666    
667  (deftest count.error.4  (deftest count.error.4

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

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