5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
|
;;; The next test was busted due to to a stupid cut and paste |
9 |
|
;;; error. The loop terminates immediately, doing nothing |
10 |
|
;;; useful. -- PFD |
11 |
|
#| |
12 |
(deftest search-string.1 |
(deftest search-string.1 |
13 |
(let ((target *searched-string*) |
(let ((target *searched-string*) |
14 |
(pat #(a))) |
(pat #(a))) |
18 |
(let ((pos (search pat tail))) |
(let ((pos (search pat tail))) |
19 |
(search-check pat tail pos)))) |
(search-check pat tail pos)))) |
20 |
t) |
t) |
21 |
|
|# |
22 |
|
|
23 |
(deftest search-string.2 |
(deftest search-string.2 |
24 |
(let ((target *searched-string*) |
(let ((target *searched-string*) |