Commit 925f3c28 authored by pfdietz's avatar pfdietz

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

parent 22d63e2a
......@@ -5,6 +5,10 @@
(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
(let ((target *searched-string*)
(pat #(a)))
......@@ -14,6 +18,7 @@
(let ((pos (search pat tail)))
(search-check pat tail pos))))
t)
|#
(deftest search-string.2
(let ((target *searched-string*)
......
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