diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp
index b435f2074752062e47c361b6c2f545bb2fd5de19..617f152c0eb95507e4d4955b64e78147da4684dd 100644
--- a/ansi-tests/search-bitvector.lsp
+++ b/ansi-tests/search-bitvector.lsp
@@ -174,3 +174,17 @@
      (search pat a :from-end t)))
   0 4 0 0 nil nil)
 
+;; Order of test, test-not
+
+(deftest search-bitvector.17
+  (let ((pat #*10)
+	(target #*000011))
+    (search pat target :test #'<=))
+  4)
+
+(deftest search-bitvector.18
+  (let ((pat #*10)
+	(target #*000011))
+    (search pat target :test-not #'>))
+  4)
+
diff --git a/ansi-tests/search-list.lsp b/ansi-tests/search-list.lsp
index 5dba4fcdb417f46bb04d49c2b8f7256524d505d3..69f4b205020d349cae451c3f5e9f82b400c0ac3e 100644
--- a/ansi-tests/search-list.lsp
+++ b/ansi-tests/search-list.lsp
@@ -134,6 +134,21 @@
 	  collect pat))
   nil)
 
+;; Order of test, test-not
+
+(deftest search-list.15
+  (let ((pat '(10))
+	(target '(1 4 6 10 15 20)))
+    (search pat target :test #'<))
+  4)
+
+(deftest search-list.16
+  (let ((pat '(10))
+	(target '(1 4 6 10 15 20)))
+    (search pat target :test-not #'>=))
+  4)
+
+
 ;;; Keyword tests
 
 (deftest search.allow-other-keys.1
diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp
index 243af8dfaf56984015ba4aad84cb7036e03b814d..0ea7c593f77fcbeff328dcf07d05ec236609a742 100644
--- a/ansi-tests/search-string.lsp
+++ b/ansi-tests/search-string.lsp
@@ -161,3 +161,16 @@
      (search pat a :from-end t)))
   0 4 0 0 nil nil)
 
+;; Order of test, test-not
+
+(deftest search-string.17
+  (let ((pat "m")
+	(target '"adgmnpq"))
+    (search pat target :test #'char<))
+  4)
+
+(deftest search-string.18
+  (let ((pat "m")
+	(target '"adgmnpq"))
+    (search pat target :test-not #'char>=))
+  4)
\ No newline at end of file
diff --git a/ansi-tests/search-vector.lsp b/ansi-tests/search-vector.lsp
index 22de5fcc153e1b31ab0b8bc882b60d32cc6cba3c..217bf4d4ab7b038f38f3fc4f6a6a60e62eb5aff3 100644
--- a/ansi-tests/search-vector.lsp
+++ b/ansi-tests/search-vector.lsp
@@ -174,3 +174,17 @@
        (search pat a))
      (search pat a :from-end t)))
   0 4 0 0 nil nil)
+
+;; Order of test, test-not
+
+(deftest search-vector.17
+  (let ((pat #(10))
+	(target #(1 4 6 10 15 20)))
+    (search pat target :test #'<))
+  4)
+
+(deftest search-vector.18
+  (let ((pat #(10))
+	(target #(1 4 6 10 15 20)))
+    (search pat target :test-not #'>=))
+  4)
\ No newline at end of file