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

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

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

revision 1.16 by pfdietz, Mon Sep 27 13:54:20 2004 UTC revision 1.17 by pfdietz, Fri May 6 01:13:41 2005 UTC
# Line 868  Line 868 
868  ;;; Error tests  ;;; Error tests
869    
870  (deftest find.error.1  (deftest find.error.1
871    (signals-error (find 'a 'b) type-error)    (check-type-error #'(lambda (x) (find 'a x)) #'(lambda (x) (typep x 'sequence)))
872    t)    nil)
   
 (deftest find.error.2  
   (signals-error (find 'a 10) type-error)  
   t)  
   
 (deftest find.error.3  
   (signals-error (find 'a 1.4) type-error)  
   t)  
873    
874  (deftest find.error.4  (deftest find.error.4
875    (signals-error (find 'e '(a b c . d)) type-error)    (signals-error (find 'e '(a b c . d)) type-error)
# Line 940  Line 932 
932    a 2 1 2)    a 2 1 2)
933    
934  (deftest find.order.2  (deftest find.order.2
935    (let ((i 0) a b c d e f g)    (let ((i 0) a b c d e f)
936      (values      (values
937       (find (progn (setf a (incf i)) nil)       (find (progn (setf a (incf i)) nil)
938             (progn (setf b (incf i)) '(nil nil nil a nil nil))             (progn (setf b (incf i)) '(nil nil nil a nil nil))
# Line 953  Line 945 
945    a 6 1 2 3 4 5 6)    a 6 1 2 3 4 5 6)
946    
947  (deftest find.order.3  (deftest find.order.3
948    (let ((i 0) a b c d e f g)    (let ((i 0) a b c d e f)
949      (values      (values
950       (find (progn (setf a (incf i)) nil)       (find (progn (setf a (incf i)) nil)
951             (progn (setf b (incf i)) '(nil nil nil a nil nil))             (progn (setf b (incf i)) '(nil nil nil a nil nil))

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

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