From 8dd1a7b107109406fe834129e21c2899a4d62a1e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 14 Jun 2003 09:14:23 +0000
Subject: [PATCH] Added tests for order of arguments to :TEST, :TEST-NOT
 function argument to SEARCH.

---
 ansi-tests/search-bitvector.lsp | 14 ++++++++++++++
 ansi-tests/search-list.lsp      | 15 +++++++++++++++
 ansi-tests/search-string.lsp    | 13 +++++++++++++
 ansi-tests/search-vector.lsp    | 14 ++++++++++++++
 4 files changed, 56 insertions(+)

diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp
index b435f207..617f152c 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 5dba4fcd..69f4b205 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 243af8df..0ea7c593 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 22de5fcc..217bf4d4 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
-- 
GitLab