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

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

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

revision 1.11 by pfdietz, Mon Sep 27 13:54:20 2004 UTC revision 1.12 by pfdietz, Sat May 7 01:55:34 2005 UTC
# Line 169  Line 169 
169  ;;; Error cases  ;;; Error cases
170    
171  (deftest reverse.error.1  (deftest reverse.error.1
172    (signals-error (reverse 'a) type-error)    (check-type-error #'reverse #'sequencep)
173    t)    nil)
   
 (deftest reverse.error.2  
   (signals-error (reverse #\a) type-error)  
   t)  
   
 (deftest reverse.error.3  
   (signals-error (reverse 10) type-error)  
   t)  
   
 (deftest reverse.error.4  
   (signals-error (reverse 0.3) type-error)  
   t)  
   
 (deftest reverse.error.5  
   (signals-error (reverse 10/3) type-error)  
   t)  
174    
175  (deftest reverse.error.6  (deftest reverse.error.6
176    (signals-error (reverse) program-error)    (signals-error (reverse) program-error)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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