/[gcl]/gcl/ansi-tests/cons-test-02.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-02.lsp

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

revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 181  Line 181 
181    (classify-error (sublis nil 'a :bad-keyword t))    (classify-error (sublis nil 'a :bad-keyword t))
182    program-error)    program-error)
183    
184    (deftest sublis.error.5
185      (classify-error (sublis '((a . 1) (b . 2))
186                              (list 'a 'b 'c 'd)
187                              :test #'identity))
188      program-error)
189    
190    (deftest sublis.error.6
191      (classify-error (sublis '((a . 1) (b . 2))
192                              (list 'a 'b 'c 'd)
193                              :key #'cons))
194      program-error)
195    
196    (deftest sublis.error.7
197      (classify-error (sublis '((a . 1) (b . 2))
198                              (list 'a 'b 'c 'd)
199                              :test-not #'identity))
200      program-error)
201    
202  ;; nsublis  ;; nsublis
203    
204  (deftest nsublis.1  (deftest nsublis.1
# Line 321  Line 339 
339    (classify-error (nsublis nil 'a :bad-keyword t))    (classify-error (nsublis nil 'a :bad-keyword t))
340    program-error)    program-error)
341    
342    (deftest nsublis.error.5
343      (classify-error (nsublis '((a . 1) (b . 2))
344                               (list 'a 'b 'c 'd)
345                               :test #'identity))
346      program-error)
347    
348    (deftest nsublis.error.6
349      (classify-error (nsublis '((a . 1) (b . 2))
350                               (list 'a 'b 'c 'd)
351                               :key #'cons))
352      program-error)
353    
354    (deftest nsublis.error.7
355      (classify-error (nsublis '((a . 1) (b . 2))
356                               (list 'a 'b 'c 'd)
357                               :test-not #'identity))
358      program-error)
359    
360    ;;;;;;
361    
362  (deftest sublis.shared  (deftest sublis.shared
363    (let* ((shared-piece (list 'a 'b))    (let* ((shared-piece (list 'a 'b))
# Line 891  Line 928 
928    (classify-error (subst 'a 'b nil :bad t :allow-other-keys nil))    (classify-error (subst 'a 'b nil :bad t :allow-other-keys nil))
929    program-error)    program-error)
930    
931    (deftest subst.error.8
932      (classify-error (subst 'a 'b (list 'a 'b) :test #'identity))
933      program-error)
934    
935    (deftest subst.error.9
936      (classify-error (subst 'a 'b (list 'a 'b) :test-not #'identity))
937      program-error)
938    
939    (deftest subst.error.10
940      (classify-error (subst 'a 'b (list 'a 'b) :key #'equal))
941      program-error)
942    
943  ;;; nsubst  ;;; nsubst
944  (deftest nsubst.error.1  (deftest nsubst.error.1
945    (classify-error (nsubst))    (classify-error (nsubst))
# Line 920  Line 969 
969    (classify-error (nsubst 'a 'b nil :bad t :allow-other-keys nil))    (classify-error (nsubst 'a 'b nil :bad t :allow-other-keys nil))
970    program-error)    program-error)
971    
972    (deftest nsubst.error.8
973      (classify-error (nsubst 'a 'b (list 'a 'b) :test #'identity))
974      program-error)
975    
976    (deftest nsubst.error.9
977      (classify-error (nsubst 'a 'b (list 'a 'b) :test-not #'identity))
978      program-error)
979    
980    (deftest nsubst.error.10
981      (classify-error (nsubst 'a 'b (list 'a 'b) :key #'equal))
982      program-error)
983    
984  ;;; subst-if  ;;; subst-if
985  (deftest subst-if.error.1  (deftest subst-if.error.1
986    (classify-error (subst-if))    (classify-error (subst-if))
# Line 949  Line 1010 
1010    (classify-error (subst-if 'a #'null nil :bad t :allow-other-keys nil))    (classify-error (subst-if 'a #'null nil :bad t :allow-other-keys nil))
1011    program-error)    program-error)
1012    
1013    (deftest subst-if.error.8
1014      (classify-error (subst-if 'a #'null (list 'a nil 'c) :key #'cons))
1015      program-error)
1016    
1017  ;;; subst-if-not  ;;; subst-if-not
1018  (deftest subst-if-not.error.1  (deftest subst-if-not.error.1
1019    (classify-error (subst-if-not))    (classify-error (subst-if-not))
# Line 979  Line 1044 
1044                                  :bad t :allow-other-keys nil))                                  :bad t :allow-other-keys nil))
1045    program-error)    program-error)
1046    
1047    (deftest subst-if-not.error.8
1048      (classify-error (subst-if-not 'a #'null (list 'a nil 'c) :key #'cons))
1049      program-error)
1050    
1051  ;;; nsubst-if  ;;; nsubst-if
1052  (deftest nsubst-if.error.1  (deftest nsubst-if.error.1
1053    (classify-error (nsubst-if))    (classify-error (nsubst-if))
# Line 1008  Line 1077 
1077    (classify-error (nsubst-if 'a #'null nil :bad t :allow-other-keys nil))    (classify-error (nsubst-if 'a #'null nil :bad t :allow-other-keys nil))
1078    program-error)    program-error)
1079    
1080    (deftest nsubst-if.error.8
1081      (classify-error (nsubst-if 'a #'null (list 'a nil 'c) :key #'cons))
1082      program-error)
1083    
1084    
1085  ;;; nsubst-if-not  ;;; nsubst-if-not
1086  (deftest nsubst-if-not.error.1  (deftest nsubst-if-not.error.1
# Line 1038  Line 1111 
1111    (classify-error (nsubst-if-not 'a #'null nil    (classify-error (nsubst-if-not 'a #'null nil
1112                                   :bad t :allow-other-keys nil))                                   :bad t :allow-other-keys nil))
1113    program-error)    program-error)
1114    
1115    (deftest nsubst-if-not.error.8
1116      (classify-error (nsubst-if-not 'a #'null (list 'a nil 'c) :key #'cons))
1117      program-error)
1118    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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