Skip to content
Snippets Groups Projects
Commit 925f3c28 authored by pfdietz's avatar pfdietz
Browse files

Removed test search-string.1, which was not doing anything useful due to an editting error.

parent 22d63e2a
No related branches found
No related tags found
No related merge requests found
...@@ -5,6 +5,10 @@ ...@@ -5,6 +5,10 @@
(in-package :cl-test) (in-package :cl-test)
;;; The next test was busted due to to a stupid cut and paste
;;; error. The loop terminates immediately, doing nothing
;;; useful. -- PFD
#|
(deftest search-string.1 (deftest search-string.1
(let ((target *searched-string*) (let ((target *searched-string*)
(pat #(a))) (pat #(a)))
...@@ -14,6 +18,7 @@ ...@@ -14,6 +18,7 @@
(let ((pos (search pat tail))) (let ((pos (search pat tail)))
(search-check pat tail pos)))) (search-check pat tail pos))))
t) t)
|#
(deftest search-string.2 (deftest search-string.2
(let ((target *searched-string*) (let ((target *searched-string*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment