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