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

Diff of /gcl/ansi-tests/nsubstitute-if.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 352  Line 352 
352    t)    t)
353    
354  (deftest nsubstitute-if-string.28  (deftest nsubstitute-if-string.28
355    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
356                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
357           (result (nsubstitute-if #\z (is-eql-p #\a) x)))           (result (nsubstitute-if #\z (is-eql-p #\a) x)))
358      result)      result)
359    "zbzcb")    "zbzcb")
360    
361  (deftest nsubstitute-if-string.29  (deftest nsubstitute-if-string.29
362    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
363                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
364           (result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t)))           (result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t)))
365      result)      result)
366    "zbzcb")    "zbzcb")
367    
368  (deftest nsubstitute-if-string.30  (deftest nsubstitute-if-string.30
369    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
370                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
371           (result (nsubstitute-if #\z (is-eql-p #\a) x :count 1)))           (result (nsubstitute-if #\z (is-eql-p #\a) x :count 1)))
372      result)      result)
373    "zbacb")    "zbacb")
374    
375  (deftest nsubstitute-if-string.31  (deftest nsubstitute-if-string.31
376    (let* ((x (make-array '(10) :initial-contents (coerce "abacbadeaf" 'list)    (let* ((x (make-array '(10) :initial-contents "abacbadeaf"
377                         :fill-pointer 5 :element-type 'character))                         :fill-pointer 5 :element-type 'character))
378           (result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t :count 1)))           (result (nsubstitute-if #\z (is-eql-p #\a) x :from-end t :count 1)))
379      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