/[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.12 by pfdietz, Wed May 25 03:34:34 2005 UTC revision 1.13 by pfdietz, Mon Jun 13 13:01:35 2005 UTC
# Line 54  Line 54 
54    (delete-duplicates (list 'a 'b 'c 'd 'a 'e 'f 'd 'g) :test-not #'eql    (delete-duplicates (list 'a 'b 'c 'd 'a 'e 'f 'd 'g) :test-not #'eql
55                       :test #'eql))                       :test #'eql))
56    
57    ;;; Const fold tests
58    
59    (deftest remove-duplicates.fold.1
60      (flet ((%f () (remove-duplicates '(1 2 3 3))))
61        (values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f)))
62      (1 2 3) (0 2 3) (1 2 3))
63    
64    (deftest remove-duplicates.fold.2
65      (flet ((%f () (remove-duplicates #(1 2 3 3))))
66        (values (%f) (let ((seq (%f))) (setf (elt seq 0) 0) seq) (%f)))
67      #(1 2 3) #(0 2 3) #(1 2 3))
68    
69    (deftest remove-duplicates.fold.3
70      (flet ((%f () (remove-duplicates #*0011)))
71        (values (%f) (let ((seq (%f))) (setf (elt seq 0) 1) seq) (%f)))
72      #*01 #*11 #*01)
73    
74    (deftest remove-duplicates.fold.4
75      (flet ((%f () (remove-duplicates "1233")))
76        (values (%f) (let ((seq (%f))) (setf (elt seq 0) #\0) seq) (%f)))
77      "123" "023" "123")
78    
79  ;;; Order of evaluation tests  ;;; Order of evaluation tests
80    

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

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