/[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.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 113  Line 113 
113  ;; Check that a null key arg is ignored.  ;; Check that a null key arg is ignored.
114    
115  (deftest sublis-8  (deftest sublis-8
116    (handler-case    (check-sublis
117        (check-sublis     '(1 2 a b)
118         '(1 2 a b)     '((1 . 2) (a . b))
119         '((1 . 2) (a . b))     :key nil)
        :key nil)  
    (error (c) c))  
120    (2 2 b b))    (2 2 b b))
121    
122  ;; nsublis  ;; nsublis
# Line 187  Line 185 
185  ;; Check that a null key arg is ignored.  ;; Check that a null key arg is ignored.
186    
187  (deftest nsublis-8  (deftest nsublis-8
188    (handler-case    (check-nsublis
189        (check-nsublis     '(1 2 a b)
190         '(1 2 a b)     '((1 . 2) (a . b))
191         '((1 . 2) (a . b))     :key nil)
        :key nil)  
    (error (c) c))  
192    (2 2 b b))    (2 2 b b))
193    
194  (deftest sublis-shared  (deftest sublis-shared
# Line 275  Line 271 
271    ((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo))))    ((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo))))
272    
273  (deftest subst-9  (deftest subst-9
274    (handler-case    (check-subst 'a 'b
275     (check-subst 'a 'b                 (copy-tree '(a b c d a b))
276                  (copy-tree '(a b c d a b))                 :key nil)
                 :key nil)  
    (error (c) c))  
277    (a a c d a a))    (a a c d a a))
278        
279    
# Line 379  Line 373 
373    (40 40 40 40))    (40 40 40 40))
374    
375  (deftest subst-if-6  (deftest subst-if-6
376    (handler-case    (check-subst-if 'a  #'(lambda (x) (eql x 'b))
377     (check-subst-if 'a  #'(lambda (x) (eql x 'b))                    '((a) (b) (c) (d))
378                     '((a) (b) (c) (d))                    :key nil)
379                     :key nil)    ((a) (a) (c) (d)))
    (error (c) c))  
 ((a) (a) (c) (d)))  
380        
381  (deftest subst-if-not-5  (deftest subst-if-not-5
382    (handler-case    (check-subst-if-not 'a  #'(lambda (x) (not (eql x 'b)))
383     (check-subst-if-not 'a  #'(lambda (x) (not (eql x 'b)))                        '((a) (b) (c) (d))
384                         '((a) (b) (c) (d))                        :key nil)
385                         :key nil)    ((a) (a) (c) (d)))
    (error (c) c))  
 ((a) (a) (c) (d)))  
386    
387  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
388  ;;; Check nsubst  ;;; Check nsubst
# Line 458  Line 448 
448    ((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo))))    ((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo))))
449    
450  (deftest nsubst-9  (deftest nsubst-9
451    (handler-case    (check-nsubst 'a 'b
    (check-nsubst 'a 'b  
452                  (copy-tree '(a b c d a b))                  (copy-tree '(a b c d a b))
453                  :key nil)                  :key nil)
    (error (c) c))  
454    (a a c d a a))    (a a c d a a))
455        
456    
# Line 544  Line 532 
532    (40 40 40 40))    (40 40 40 40))
533    
534  (deftest nsubst-if-6  (deftest nsubst-if-6
535    (handler-case    (check-nsubst-if 'a  #'(lambda (x) (eql x 'b))
    (check-nsubst-if 'a  #'(lambda (x) (eql x 'b))  
536                     '((a) (b) (c) (d))                     '((a) (b) (c) (d))
537                     :key nil)                     :key nil)
538     (error (c) c))    ((a) (a) (c) (d)))
 ((a) (a) (c) (d)))  
539        
540  (deftest nsubst-if-not-5  (deftest nsubst-if-not-5
541    (handler-case    (check-nsubst-if-not 'a  #'(lambda (x) (not (eql x 'b)))
    (check-nsubst-if-not 'a  #'(lambda (x) (not (eql x 'b)))  
542                         '((a) (b) (c) (d))                         '((a) (b) (c) (d))
543                         :key nil)                         :key nil)
544     (error (c) c))    ((a) (a) (c) (d)))
 ((a) (a) (c) (d)))  

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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