/[gcl]/gcl/ansi-tests/remove-duplicates.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-duplicates.lsp

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

revision 1.13 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.14 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 56  Line 56 
56    
57  ;;; Const fold tests  ;;; Const fold tests
58    
59  (deftest remove-duplicates.fold.1  (def-fold-test remove-duplicates.fold.1 (remove-duplicates '(1 2 3 3)))
60    (flet ((%f () (remove-duplicates '(1 2 3 3))))  (def-fold-test remove-duplicates.fold.2 (remove-duplicates #(1 2 3 3)))
61      (values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f)))  (def-fold-test remove-duplicates.fold.3 (remove-duplicates #*0011))
62    (1 2 3) (0 2 3) (1 2 3))  (def-fold-test remove-duplicates.fold.4 (remove-duplicates "1233"))
   
 (deftest remove-duplicates.fold.2  
   (flet ((%f () (remove-duplicates #(1 2 3 3))))  
     (values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f)))  
   #(1 2 3) #(0 2 3) #(1 2 3))  
   
 (deftest remove-duplicates.fold.3  
   (flet ((%f () (remove-duplicates #*0011)))  
     (values (%f) (let ((seq (%f))) (setf (elt seq 0) 1) seq) (%f)))  
   #*01 #*11 #*01)  
   
 (deftest remove-duplicates.fold.4  
   (flet ((%f () (remove-duplicates "1233")))  
     (values (%f) (let ((seq (%f))) (setf (elt seq 0) #\0) seq) (%f)))  
   "123" "023" "123")  
63    
64  ;;; Order of evaluation tests  ;;; Order of evaluation tests
65    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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