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

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

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

revision 1.2 by pfdietz, Mon Nov 11 02:12:22 2002 UTC revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC
# Line 495  Line 495 
495    "1234567x9")    "1234567x9")
496    
497  (deftest nsubstitute-string.28  (deftest nsubstitute-string.28
498    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
499                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
500           (result (nsubstitute #\z #\a x)))           (result (nsubstitute #\z #\a x)))
501      result)      result)
502    "zbzcb")    "zbzcb")
503    
504  (deftest nsubstitute-string.29  (deftest nsubstitute-string.29
505    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
506                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
507           (result (nsubstitute #\z #\a x :from-end t)))           (result (nsubstitute #\z #\a x :from-end t)))
508      result)      result)
509    "zbzcb")    "zbzcb")
510    
511  (deftest nsubstitute-string.30  (deftest nsubstitute-string.30
512    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
513                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
514           (result (nsubstitute #\z #\a x :count 1)))           (result (nsubstitute #\z #\a x :count 1)))
515      result)      result)
516    "zbacb")    "zbacb")
517    
518  (deftest nsubstitute-string.31  (deftest nsubstitute-string.31
519    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
520                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
521           (result (nsubstitute #\z #\a x :from-end t :count 1)))           (result (nsubstitute #\z #\a x :from-end t :count 1)))
522      result)      result)

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