Commit 114f3be4 authored by pfdietz's avatar pfdietz
Browse files

fixed two bogus tests

parent 2b8e2331
......@@ -7,9 +7,9 @@
(deftest search-bitvector.1
(let ((target *searched-bitvector*)
(pat #(a)))
(pat #*0))
(loop for i from 0 to (1- (length target))
for tail on target
for tail = (subseq target i)
always
(let ((pos (search pat tail)))
(search-check pat tail pos))))
......@@ -17,7 +17,7 @@
(deftest search-bitvector.2
(let ((target *searched-bitvector*)
(pat #(a)))
(pat #*0))
(loop for i from 1 to (length target)
always
(let ((pos (search pat target :end2 i :from-end t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment