Skip to content
Snippets Groups Projects
Commit 40d0466d authored by pfdietz's avatar pfdietz
Browse files

Fixed thinko. For some reason these tests started failing.

parent 47ed47e6
No related branches found
No related tags found
No related merge requests found
...@@ -139,13 +139,13 @@ ...@@ -139,13 +139,13 @@
(deftest search-list.15 (deftest search-list.15
(let ((pat '(10)) (let ((pat '(10))
(target '(1 4 6 10 15 20))) (target '(1 4 6 10 15 20)))
(search pat target :test #'>)) (search pat target :test #'<))
4) 4)
(deftest search-list.16 (deftest search-list.16
(let ((pat '(10)) (let ((pat '(10))
(target '(1 4 6 10 15 20))) (target '(1 4 6 10 15 20)))
(search pat target :test-not #'<=)) (search pat target :test-not #'>=))
4) 4)
(defharmless search.test-and-test-not.1 (defharmless search.test-and-test-not.1
......
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