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 |
|
|
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 |
|
|