/[gcl]/gcl/ansi-tests/search-string.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-string.lsp

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

revision 1.2 by pfdietz, Mon Oct 14 03:54:59 2002 UTC revision 1.3 by pfdietz, Tue Nov 5 13:51:27 2002 UTC
# Line 1  Line 1 
1  ;-*- Mode:     Lisp -*-  ;-*- Mode:     Lisp -*-
2  ;;;; Author:   Paul Dietz  ;;;; Author:   Paul Dietz
3  ;;;; Created:  Sun Aug 25 13:06:54 2002  ;;;; Created:  Sun Aug 25 13:06:54 2002
4  ;;;; Contains: Tests for SEARCH on vectors  ;;;; Contains: Tests for SEARCH on strings
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
# Line 130  Line 130 
130                                           :test (complement #'eq))))))                                           :test (complement #'eq))))))
131            collect pat))            collect pat))
132    nil)    nil)
133    
134    (deftest search-string.15
135      (let ((a (make-array '(10) :initial-contents (coerce "abbaaababb" 'list)
136                           :fill-pointer 5
137                           :element-type 'character)))
138        (values
139         (search "a" a)
140         (search "a" a :from-end t)
141         (search "ab" a)
142         (search "ab" a :from-end t)
143         (search "aba" a)
144         (search "aba" a :from-end t)))
145      0 4 0 0 nil nil)
146    
147    (deftest search-string.16
148      (let ((pat (make-array '(3) :initial-contents '(#\a #\b #\a)
149                             :fill-pointer 1))
150            (a "abbaa"))
151        (values
152         (search pat a)
153         (search pat a :from-end t)
154         (progn
155           (setf (fill-pointer pat) 2)
156           (search pat a))
157         (search pat a :from-end t)
158         (progn
159           (setf (fill-pointer pat) 3)
160           (search pat a))
161         (search pat a :from-end t)))
162      0 4 0 0 nil nil)
163    

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