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

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

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

revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC revision 1.7 by pfdietz, Thu Feb 20 23:57:54 2003 UTC
# Line 190  Line 190 
190  (deftest substitute-list.26  (deftest substitute-list.26
191    (let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))    (let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))
192           (x (copy-seq orig))           (x (copy-seq orig))
193           (result (substitute '(a 10) 'a x :key #'car :test (complement #'eq))))           (result (substitute '(a 10) 'a x :key #'car :test (complement #'eql))))
194      (and (equal orig x)      (and (equal orig x)
195           result))           result))
196    ((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))    ((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))
# Line 198  Line 198 
198  (deftest substitute-list.27  (deftest substitute-list.27
199    (let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))    (let* ((orig '((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))
200           (x (copy-seq orig))           (x (copy-seq orig))
201           (result (substitute '(a 10) 'a x :key #'car :test-not #'eq)))           (result (substitute '(a 10) 'a x :key #'car :test-not #'eql)))
202      (and (equal orig x)      (and (equal orig x)
203           result))           result))
204    ((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))        ((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))    
# Line 394  Line 394 
394  (deftest substitute-vector.26  (deftest substitute-vector.26
395    (let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))    (let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))
396           (x (copy-seq orig))           (x (copy-seq orig))
397           (result (substitute '(a 10) 'a x :key #'car :test (complement #'eq))))           (result (substitute '(a 10) 'a x :key #'car :test (complement #'eql))))
398      (and (equalp orig x)      (and (equalp orig x)
399           result))           result))
400    #((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))    #((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))
# Line 402  Line 402 
402  (deftest substitute-vector.27  (deftest substitute-vector.27
403    (let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))    (let* ((orig #((a 1) (b 2) (a 3) (c 4) (d 5) (a 6) (e 7)))
404           (x (copy-seq orig))           (x (copy-seq orig))
405           (result (substitute '(a 10) 'a x :key #'car :test-not #'eq)))           (result (substitute '(a 10) 'a x :key #'car :test-not #'eql)))
406      (and (equalp orig x)      (and (equalp orig x)
407           result))           result))
408    #((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))    #((a 1) (a 10) (a 3) (a 10) (a 10) (a 6) (a 10)))
# Line 641  Line 641 
641  (deftest substitute-string.26  (deftest substitute-string.26
642    (let* ((orig "0102342015")    (let* ((orig "0102342015")
643           (x (copy-seq orig))           (x (copy-seq orig))
644           (result (substitute #\a #\1 x :key #'nextdigit :test (complement #'eq))))           (result (substitute #\a #\1 x :key #'nextdigit :test (complement #'eql))))
645      (and (equalp orig x)      (and (equalp orig x)
646           result))           result))
647    "0a0aaaa0aa")    "0a0aaaa0aa")
# Line 649  Line 649 
649  (deftest substitute-string.27  (deftest substitute-string.27
650    (let* ((orig "0102342015")    (let* ((orig "0102342015")
651           (x (copy-seq orig))           (x (copy-seq orig))
652           (result (substitute #\a #\1 x :key #'nextdigit :test-not #'eq)))           (result (substitute #\a #\1 x :key #'nextdigit :test-not #'eql)))
653      (and (equalp orig x)      (and (equalp orig x)
654           result))           result))
655     "0a0aaaa0aa")     "0a0aaaa0aa")
# Line 925  Line 925 
925  (deftest substitute-bit-vector.28  (deftest substitute-bit-vector.28
926    (let* ((orig #*00111001011010110)    (let* ((orig #*00111001011010110)
927           (x (copy-seq orig))           (x (copy-seq orig))
928           (result (substitute 0 1 x :key #'1+ :test (complement #'eq))))           (result (substitute 0 1 x :key #'1+ :test (complement #'eql))))
929      (and (equalp orig x)      (and (equalp orig x)
930           result))           result))
931    #*00000000000000000)    #*00000000000000000)
# Line 933  Line 933 
933  (deftest substitute-bit-vector.29  (deftest substitute-bit-vector.29
934    (let* ((orig #*00111001011010110)    (let* ((orig #*00111001011010110)
935           (x (copy-seq orig))           (x (copy-seq orig))
936           (result (substitute 0 1 x :key #'1+ :test-not #'eq)))           (result (substitute 0 1 x :key #'1+ :test-not #'eql)))
937      (and (equalp orig x)      (and (equalp orig x)
938           result))           result))
939    #*00000000000000000)    #*00000000000000000)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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